var a,b:integer;

c:char;

begin

readln(a);

readln(c);

if c='+' then begin readln(b); writeln(a+b); end;

if c='-' then begin readln(b); writeln(a-b); end;

if c='*' then begin readln(b); writeln(a*b); end;

if (c='/') or (c=':') then begin readln(b); writeln(a/b); end;

end.

Программа рабочая, но в лазарусе нету вывода на экран(если не ошибаюсь), если надо ввод/вывод ассоциировать с файлом - напиши