Решить задачки на языке программирования pascal (все)

Последнюю задачу решать используя что?

1)
var a:double;
i: integer;
sum: double;
begin
sum:=0;
for i:= 1 To 5 Do
begin
read(a);
sum:=sum+a;
end;
write('Среднее значение = ' + sum/5);
end.

2)
var x: double;
a:double;
diff: double;
begin
writeln('Сколько рублей стоит диск?');
read(x);
writeln('Сколько рублей у тебя в кармашке?');
read(a);
if (a gt; x) then begin
writeln('Да');
end
else
begin
diff:= x - a;
writeln('Нет, чтоб покупать диск, необходимо добавить еще ' + diff + ' рублей');
end;
end.

3)
var c: double;
f:double;
i:integer;
begin
for i:=15 To 30 Do begin
c:=i;
f:=1.8*c+32;
writeln(c + 'C = ' + f +'F');
end; 
end.

4) 
var b: integer;
n:double;
i:integer;
begin
writeln('Введите количество минут:');
read(n);
i:= 0;
b:=1;
while (i lt; n) do begin
b:= b * 2;
i:=i +1;
end;
writeln('Через ' + n +' минут будет ' + b + ' микробов');
end.

Решение первых 2-ух задач
Сейчас напишу другие