Задание в паскале

Домашнее задание

var a,l:integer;
begin
writeln ('Введите число');
readln (a);
l:=0;
while a<>0 do begin
a:= a div 10;
l:=l+1;
end;
writeln ('Кол-во цифр ',l);
end.

Классная работа

№1

Var i,n: integer;

begin

writeln ('Запишите число n');

readln (n);

i:=1;

while i<=n do 

if i mod 2 = 0 then 

begin

writeln (i);

i:=i+1;

end;

readln;

end.

№2 

Var i,n: integer;

begin

writeln ('Запишите число n');

readln (n);

i:=1;

repeat

if i mod 2 = 0 then 

begin

writeln (i);

i:=i+1;

end;

until

i=n

readln;

end.