Question

даны целые числа а и в (а<в) написать программу вычисления всех целых чисел от а до в включительно

Answer 1

var a,b,c:integer;
begin
writeln('введите число a');
readln(a);
writeln('введите число b');
readln(b);
for a:=a to b do begin
writeln('число в промежутке ==>',a);
end;
if a>b then
 for b:=b to a do begin
writeln('число в промежутке ==>',b);
end;
end.

Answer 2

var
    a, b, i: integer;

begin
    writeln('введите число a');
    readln(a);
    writeln('введите число b');
    readln(b);
   
    if (a > b) then begin
        i := b;
        b := a;
        a := i;
    end;
   
    for i := a to b do
        writeln('число в промежутке ==>', i);
   
end.