Сделать блок схему

вика в категроии Информатика, вопрос открыт 17.09.2017 в 04:40

program calc;
var
q:char;
a,b,c,i:real;
begin
i:=1;
while i=1 do
begin
write('Первое Число:');
readln(a);
write('Выберите действие(+,-,*,/):');
readln(q);
write('Второе число:');
readln(b);
case q of
'+': c:=a+b;
'-': c:=a-b;
'*': c:=a*b;
'/': c:=a/b;
else writeln('Некоректный ввод данных.');
end;
writeln(c:5:2);
writeln('Продолжить?:Y(1)/N(0)');
read(i);
end;
end.