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

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.