[99 сделать программу pascal abc с циклам while.

Какой ты щедрый)

program g;
var
g: integer;
begin
g:=1;
writeln('Вывод чисел 1-20');
while g<=20 do
begin
writeln(g);
g:= g+1;
end;
end.