Упростите пожалуйста вот эту задачу

[Румиль]

program prostoy_kalkulyator;
var a,b,c,d,e:integer;
begin
write('1 и 2 значение равно ');
read(a,b);
writeln('сумма значений = ',a+b);
writeln('разность 1 значения - 2 значение = ',a-b);
writeln('произведение значение = ',a*b);
writeln('деление 1 значения на 2 = ', a/b);
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Alex11223]

Что тут упрощать-то?

[Вадим Мошев]

Разве что можно исключить лишние переменные, оставив только a и b. Кстати, нужно учитывать, что делитель (b) может быть равен нулю...

Также можно убрать строку

program prostoy_kalkulyator;

[Аватар]

можно еще вместо 4 writeln один

writeln('сумма значений = ',a+b,#13#10,
  'разность 1 значения - 2 значение = ',a-b,#13#10,
  'произведение значение = ',a*b,#13#10,
  'деление 1 значения на 2 = ', a/b);

а надо?

[p51x]

Можно еще вместо больших строк на русском просто писать a+b= и т.д.