Question

помогите написать программу на языке паскаль
1. вывести все числа от 1 до 10 с помощью while;
2. вывести все числа от 1 до 10 с помощью repeat

Answer 1

var
a,b:integer;
begin
a:=0;
b:=0;
 //Вывод через while
   while a<>10 do
    begin
     inc(a);
     write(a,' ');
    end;
     writeln('');
      //Вывод через repeat 
      repeat
       begin
        inc(b);
        write(b,' ');
       end;
      until b=10;
end.