Запиши программу в Паскале для вычисления площади прямоугольника со
сторонами c и Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;
writeln('s=',s);
readln;
end.
begin
writeln('Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;
writeln('s=',s);
readln;
end.
var
c, m:word;
begin
writeln('Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;
writeln('s=',s);
readln;
end.
var
c, m,s:word;
begin
writeln('Введи длину и ширину прямоугольника c и m');
readln (c,m);
s:=c*m;

Var
  A, i, k2, k4, k5, c, d, N: integer;
Begin
  Write('Введите количество учеников в классе: ');ReadLn(N);
  if (N = 32) then
  Begin
    c := 1;
    d := 5;
    WriteLn('Введите оценки учеников:');
    k2 := 0;
    k4 := 0;
    k5 := 0;
    i := 1;
    While i <= N do
    Begin
      Write('Оценка ученика №',i,': ');ReadLn(A);
      if (c <= A)and(A <= d) then
      Begin
        Case A of
          2: k2 := k2+1;
          4: k4 := k4+1;
          5: k5 := k5+1;
        End;
        i := i+1;
      End
      else
        WriteLn('Неприемлимое значение! Допустимые значения: [',c,'..',d,']');
    End;
    WriteLn('Количество двоек: ',k2);
    WriteLn('Количество четвёрок: ',k4);
    WriteLn('Количество пятёрок: ',k5);
  End
  else
    WriteLn('В классе не 32 ученика');
End.

Представь себе одну колею. Посредине отходит тупик на 11 вагонов. По краям два поезда.
1) Левый проезжает вперед и задком заходит в тупик, оставляя там 11 вагонов. Потом выезжает и возвращается на место - влево.
2) Правый подъезжает к вагонам и прицепляет к себе спереди паровоза (у паровоза "зад - перед" одно и то же) и оттаскивает на место вправо.
3) Левый опять протягивает вперед и задком полностью заезжает в тупик.
4) Правый двигается по колее, занимая место слева. Он теперь левый.
5) Левый выезжает и занимает место справа. Он теперь правый.
6) Левый протягивает назад и заталкивает в тупик 11 вагонов не своих. Выезжает обратно.
7) Правый подцепляет свои вагоны и каждый едет дальше!

Все это справедливо, если в тупик можно заехать с правой стороны. Если с левой - картина меняется на зеркальную.