Привидите пример на языке программирования паскаль

Var
a, b:Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln(a, '+', b, '=' a+b);
writeln(a, '-', b, '=' a-b);
writeln(a, '*', b, '=' a*b);
writeln(a, '/', b, '=' a/b);
end.