Циклы. Паскаль

[andronova]

Помогите, пожалуйста! Совсем не знаю Паскаль.
1. Вычислить F=2*4*...+(2n), n>0. Записать варианты программы с различными видами циклов.
2. В ЭВМ поступили результаты спортсменов по плаванию для 3 спортсменов. Составить программу, которая выбирает лучший результат и выводит его на экран с сообщением о том, что это резуьтат победителя.
3. Логической t присвоить значение true или false в зависимости от того, является ли натуральное число k степенью числа 3 или нет.
Спасибо всем, кто откликнется!!!

[Stilet]

Вычмслить F=2*4*...+(2n), n>0. Записать варианты программы с различными видами циклов.

1.

var i,n,f:integer;
begin
 n:=4;i:=1;while(i<n) do begin f:=f+(2*i); inc(i); end;
 write(f);
end.

2.

var i,n,f:integer;
begin
 n:=4;i:=1;repeat f:=f+(2*i); inc(i); intil i=n;
 write(f);
end.

3.

var i,n,f:integer;
begin n:=4;
 for i:=1 to n do begin f:=f+(2*i); end;
 write(f);
end.

Это по памяти...