ПОМОГИТЕ РЕШИТЬ ЗАДАЧУ ! в ПАСКАЛЕ

[Юля_7182]

program z6;
var x,y:integer;
begin
for x:=1 to 9 do
begin
y:=(x*x);
writeln('x=',x,' ','y=',y); x:=x+1;
end;
end.


РЕШИТЬ ЭТУ ЗАДАЧУ С МЕТОДОМ ФУНКЦИИ И ПРОЦЕДУР.

[ZX Spectrum-128]

А вот эта строка в программе x:=x+1; зачем?

[Юля_7182]

для того чтобы выводить цифры в квадрат! тоесть
x=1 y=1
x=3 y=9
x=5 y=25
x=7 y=49
x=9 y=81

тоесть должно выводить не чётные числа!

[Stilet]

program z6;
function foo:Boolean;
var x,y:integer;
begin
x:=1; while x<=9
begin
 y:=(x*x);
 writeln('x=',x,' ','y=',y); x:=x+1;
end;

procedure pro; begin foo; readln; end;

begin
 pro
end.

Годится?

[type_Oleg]

Юля_7182, Паскаль не позволяет так делать. У вас x - сакральная переменная. Она - счетчик в for, поэтому не может быть в цикле слева от :=