pascal programming repeat

program hello;
  var
  i:integer;
   var
  sum, number:integer;
  a: integer;
begin

writeln('############# multiple of 5 to 50 in repeat #############');
i:=0;
repeat
i:=i+5;
writeln(i);
until i=50;

 i:=10;
 while i < 20 do
    (* Decreatment from givent lifetime to 1  *)

   begin

        writeln(': Year: ',i);
           i:=i+1;

   end;



   writeln('######### Find Odd Number in While do loop #########');
 readln(i);
if i mod 2=1 then
writeln(i , ' is odd' );


 readln;

end.

Share on Google Plus

About Lucky Ibitubo

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.