Нужно написать программу на паскале

var

i: integer;

sum40, sumdi: longint;

begin

sum40 := 0;

sumdi := 0;

while true do

begin

read(i);

if i = 0 then break;

if i > 40 then sum40 := sum40 + 1;

if (i>=10) and (i<=99) then sumdi := sumdi + 1;

end;

writeln('Больше 40: ',  sum40);

writeln('Две цифры: ', sumdi);

end.