У зошит написати процедуру, у якій можна обчислити суму, різницю, добуток двох дійсних чисел залежно від обраної дії з випадаючого списку (КОМПОНЕНТИ: 2 ПОЛЯ, випадаючий список, І НАПИС ДЛЯ ВИВЕДЕННЯ ВІДПОВІДІ)

Program deposit;
var p,s: real;
n:integer;
begin
p:=0;//величина прибавки
s:=1000;//первоначальная сумма
n:=0;//число месяцев
while p<=30 do //пока прибавка меньше 30 руб.
begin
p:=s*0.02; //величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Ежемесячное увеличение вклада превысит 30 руб через ',n, ' месяцев');
n:=0; //обнуление счетчика месяцев
s:=1000;//восстановление значения первоначального взноса
while s<=1200 do
begin
p:=s*0.02;//Величина месячной прибавки
сумма плюс прибавка за текущий месяц
n:=n+1;//число месяцев
end;
writeln('Величина вклада превысит 1200 руб через ',n,' месяцев');
end.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  case ReadInteger('Номер месяца (1-12):') of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.

Вариант "для школьников"
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
var n:integer;
begin
  Write('Номер месяца (1-12): '); Read(n);
  case n of
  1,2,12:Writeln('Зима');
  3..5:Writeln('Весна');
  6..8:Writeln('Лето');
  9..11:Writeln('Осень');
  else Writeln('Неверный номер месяца')
  end
end.