Найти пары чисел

[саша аврамов]

1) Сколько цветов будет на клумбе через 95 дней после посадки, если каждый 5 день вырастает на 5 цветов больше, чес в прошлый раз. В начале было А цветов, в первый раз выросло 10 цветов
2) С клавиотуры вводятся пары чисел. Найти сумму их произведений до первой пары равных чисел.
решить в Pascal c помощью цикла while

[Mad_Cat]

1)

x:=10;
a:=a+10;
for i:=1 to 19 do
begin
x:=x+5;
a:=a+x;
end;

2)

read(a);
read(b);
s:=0;
while (a<>b) do
begin
s:=s+(a*b);
read(a);
read(b);
end;