НАПИШИТЕ ПОЖАЛУЙСТА!!!

program summ;

uses crt;

var
a, b : integer;

begin
writeln('Введи первое значение:');
readln(a);
writeln('Введи второе значение:');
readln(b);
clrscr();

writeln(a + ' + ' + b + ' = ' + (a+b));
writeln(a + ' - ' + b + ' = ' + (a-b));
writeln(a + ' * ' + b + ' = ' + (a*b));
writeln(a + ' : ' + b + ' = ' + (a/b));
end.