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

program kalkulator; uses crt; var a,b,c: real; x: integer; Beginclrscr; 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.