Estrutura de repetição While

Ano bissexto

Program Pzim ;
   Uses CRT;
      Var
        cont,ano:integer;
        divi:real;

Begin
   cont:=0;
   while (cont <3) do
     Begin
      
       Writeln('Informe um ano');
       readln(ano);
       divi:=ano/4;
       if trunc(divi)*4=ano then
         Begin
           Writeln('o ano é bissexto');
         end;
       
       Cont:= Cont+1;        
     end;
 End.

Origem: FASEM