Question

Паскаль. Помогите пожалуйста.

Answer 1

Var a,b:integer;
begin
a:=-10;
b:=7;
while a<=10 do
begin
write('a = ',a:3,'   b = ',b,'   S = ',a+b:2,'   R = ',a-b:2);
writeln;
a:=a+5
end
end.

Answer 2

Program fgg;

const
b = 7;

var
a, s, r: Integer;

begin
for a := - 10 to 10 do
Writeln('s=', a + b, ' ', 'r=', a - b);
a := a + 5;
end.