ИНФОРМАТИКА. делать в Паскале. - вопрос №1907865

Program Nua; //Название программы можно указать вместо NUAvar //Описание переменных  x,y: real; // Стороны прямоугольника  S: real;   // Площадь прямоугольника  P: real;   // Периметр прямоугольника  procedure RectSP(a,b: real; var S,P:real); //Процедураbegin  S := a * b; //Нахождение площади  P := a + b; //Нахождение суммыend; begin //Начало основной части программы  writeln('Введите стороны прямоугольника: '); //Диалоговое окно  readln(x,y); //Считывание сторон  RectSP(x,y,S,P); //Вызов процедуры    writeln('Площадь равна ',S); //Вывод площади  writeln('Периметр равен ',P); //Вывод периметраend. //Конец программы