Turbo Pascal! Помогите пожалуйста составить программу..)

Question

Turbo Pascal! Помогите пожалуйста составить программу..)

Алина Улумбекова Знаток (364), на голосовании 14 лет назад

Составить программу "Простейший калькулятор". Ввести два числа. Осуществить над ними операции сложения, вычитания, умножения, деления.

Answer 1

var a,b:integer;
begin
readln(a,b);
writeln (a+b);
writeln(a-b);
writeln (a*b);
writeln(a/b);
end.

Answer 2

Uses crt;
Vara,b,S:real;
C:char;
Begin
Clrscr;
Write('a,b = ');
Readln(a,b);
Write('+,-,*,/ = ');
Readln(C);
Clrscr;
If not (C in ['+','-','*','/']) Then C:='!';
Case C of
'+': S:=a+b;
'-': S:=a-b;
'*': S:=a*b;
'/': If b<>0 Then S:=a/b
Else Writeln('Error!');
'!': Writeln('Error!');
End;
Writeln(S:10:10);
Readkey;
End.

Вот так красивее!