Блок схема калькулятор...

Блок схема калькулятор и программа на Паскале

 

program kalkulator;
uses crt;
var    a,b,c:real; x:integer;
Begin
clrscr;
Writeln('введите 2 числа');    
Readln(a,b);    
Writeln('выберете действие');    
Writeln('1-"+" 2-"-" 3-"*" 4-"/"');         
Readln(x);         
case x of    
1:begin c:=a+b; Writeln(c:2:2); end;    
2:begin c:=a-b; Writeln(c:2:2); end;    
3:begin c:=a*b; Writeln(c:2:2); end;    
  elsebegin  c:=a/b; Writeln(c:2:2);
end;    
end;    
Readln;    
end.