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

var i,n,s:integer;
begin
readln(n);
for i:=1 to n do
if i mod 2=0 then
writeln(i);
readln;
end.

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

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.

Домашняя работа.

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

Домашняя работа(Программа Pascal)