uses crt;
var d:char;
a,b,s,c: real;
begin
write('Введите первое число: ');
readln(a);
write('Введите второе число: ');
readln(b);
write('Какое действие хотите выполнить? + - * / ');
readln(d);
case d of
'+': s := a + b;
'*': s := a * b;
'-': s := a - b;
'/': if s = 0 then begin writeln('Ошибка!') end else begin s := a / b end;
end;
writeln(s);
end.
Объяснение:
