Определите площадь и периметр прямоугольника со сторонами а и b. Через паскаль

program area;vara:integer; // сторона аb:integer; // сторона bS:integer; // площадь прямоугольникаP:integer; // периметр прямоугольника beginwrite("Введите а: "); // выводим сообщение readln(a); // получаем значение аwrite("Введите b: "); // выводим сообщение readln(b); // получаем значение  bS:=a*b; // вычисляем площадьP:=a*2+b*2;  // вычисляем периметрwrite("Площадь равна:", S); // выводим сообщение write("Периметр равен:", P); // выводим сообщение end.