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

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;

else begin c : = a / b; Writeln (c : 2 : 2) ;

end;

end;

Readln;

end.