СРОЧНО!!
ПОМОГИТЕ С ИНФОЙ!!
24 БАЛЛА!!
ЕСЛИ ПОЛУЧУ 2 ,ТО ИСКЛЮЧАТ((

1) (Скр.1)

var i:integer;

begin

   for i:=1 to 9 do writeln('9 * ',i,' = ',(i * 9));

end.

2) (Скр.2)

var i,s:integer;

begin

   for i:= 5 to 11 do s := s + i * i;

   write('Response: ',s);

end.