Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма: 1)...

Чтобы правильно расположить строки программы, вычисляющей периметр и площадь параллелограмма, необходимо следовать основным правилам структурирования программ на Паскале. Вот правильный порядок строк:

1. program pr;
   Это строка объявления программы, с неё начинается любая программа на Паскале.

2. Uses crt;
   Эта строка добавляет модуль crt, который содержит функции для работы с экраном и клавиатурой.

3. var a,b,h,p,s: integer;
   Объявление переменных, используемых в программе. Здесь объявляются переменные для сторон параллелограмма, высоты, периметра и площади.

4. begin
   Начало основного блока программы.

5. clrscr;
   Очистка экрана перед началом выполнения основной части программы.

6. a:=6;b:=3;h:=4;
   Присваивание значений переменным. Здесь задаются значения для основания, боковой стороны и высоты параллелограмма.

7. *p:=2(a+b);**
   Вычисление периметра параллелограмма. Периметр равен удвоенной сумме двух сторон.

8. *S:=ah;**
   Вычисление площади параллелограмма. Площадь равна произведению основания и высоты.

9. Writeln('p=',p,' s=',s);
   Вывод на экран значений периметра и площади.

10. readln;
    Ожидание ввода от пользователя. Обычно используется, чтобы программа не закрывалась сразу после выполнения.

11. end.
    Конец программы.

Итак, правильный порядок строк:

1. 3) program pr;
2. 5) Uses crt;
3. 6) var a,b,h,p,s: integer;
4. 11) begin
5. 10) clrscr;
6. 9) a:=6;b:=3;h:=4;
7. 4) p:=2*(a+b);
8. 1) S:=a*h;
9. 8) Writeln('p=',p,' s=',s);
10. 7) readln;
11. 2) end.

Этот порядок позволяет программе корректно компилироваться и выполняться, обеспечивая вычисление и вывод периметра и площади параллелограмма.

1) S:=ah; 4) p:=2(a+b); 6) var a,b,h,p,s: integer; 9) a:=6;b:=3;h:=4; 5) Uses crt; 3) program pr; 11) begin 7) readln; 8) Writeln(‘p=’,p,’ s=’,s); 2) end. 10) clrscr;

Итоговая программа будет выглядеть следующим образом:

Uses crt;
program pr;
var a,b,h,p,s: integer;

begin
  a:=6;
  b:=3;
  h:=4;
  
  S:=a*h;
  p:=2*(a+b);
  
  Writeln('p=',p,' s=',s);
  
  readln;
  clrscr;
end.