Напишите любые 5 программ с циклом со счетчиком в pascalabc

   var
A,B:byte;
begin
readln(A);
for B:=1 to 20 do
A:=A+1;
writeln(A);
end.
   var
A,K,U:byte;
begin
readln(A,U);
while A>U do
begin
K:=K+1;
A:=A-1;
end;
end.
типа такого?