;writeln ('Введите число а:');readln (a);writeln ('Введите число b:');readln (b);
while a <= b dobeginwriteln (a);a := a + 1;end;end.
;
writeln ('Введите число а:');
readln (a);
writeln ('Введите число b:');
readln (b);
while a <= b do
begin
writeln (a);
a := a + 1;
end;
end.