Циклы

program pr11;
uses crt;
var 
f,n,i:integer;
begin
f:=1;
writeln('vvedite N');
readln(n);
for i:=1 to n do begin
f:=f*2n;
end;
writeln('pri n=',n,' f=',f);
readln;
end.

program pr12;
uses crt;
var 
f,n,i:integer;
begin
f:=1;
i:=1;
writeln('vvedite N');
readln(n);
while i<=n do begin
f:=f*2n;
i:=i+1
end;
writeln('pri n=',n,' f=',f);
readln;
end.

program pr13;
uses crt;
var 
f,n,i:integer;
begin
f:=1;
i:=1;
writeln('vvedite N');
readln(n);
repeat
f:=f*2n;
i:=i+1
until i<=n;
writeln('pri n=',n,' f=',f);
readln;
end.

program zadacha_4;
var a,b,c: Real;
begin
writeln ('введите результат 1 спортсмена');
readln (a);
writeln ('введите результат 2 спортсмена');
readln (b);
writeln ('введите результат 3 спортсмена');
readln (c);
if (a>b) and (a>c) then writeln (a, '- это результат победителя')
  if (b>a) and (b>c) then writeln (b,'- это результат победителя')
  else writeln (c,' - это результат победителя')
  end;
end;
end.

uses crt;
var k:integer;
     t:boolean;
begin
 clrscr;
 writeln('Vvedite k ');
 readln(k);
  repeat
   k:=k div 3;
  until(k=1)or(k mod 3 <>0);
 if k=1 then t:=true;
writeln(t);
readln;
 
end.