Введите два естественных числа. Выведите на экран длины сторон прямоугольника, периметр

program zz1;
var a, b, p:integer; // вводим переменные целого типа
begin
write( введите первое число ); // вводим с клавиатуры 1-ое число
read(a);
write( введите 2-ое число ); // вводим с клавиатуры 2-ое число
read(b);
writeln( 1-ая сторона прямоугольника = , a); // выводим ответы
writeln( 2-ая сторона прямоугольника = , b);

p:=2 * (b + a); // обретаем периметр прямоугольника по формуле
writeln( периметр прямоугольника = , p);
writeln( площадь прямоугольника = , a * b);
end.