Задали сложну по составим программу "калькулятор", которая после ввода двух чисел и одного из знаков +, -, *, / произведёт вычисления, а результат выдаст на экран.

Var
a,b,s:real;
sim:char;
Begin
writeln('Введите два числа');
readln(a,b);
writeln('Введите знак операции');
readln(sim);
case sim of
'+': s:=a+b;
'-': s:=a-b;
'*','x': s:=a*b;
'/',':': s:=a/b;
end;
writeln (a,sim,b,'=',s);
end.

Var
a,b:integer;
c:string;
begin
readln(a,b);
readln(c);
if c='+' then
writeln(a+b);
if c='*' then
writeln(a*b);
if c='-' then
writeln(a-b);
end.

так проще