Решить задачу Pascal: Вычислить значение функции y=x^2 в цикле repeat

[Rageded]

Вычислить значение функции y=x^2, 3<x<9,для решения использовать оператор Repeat

[newerow1989]

var x,y:integer;
begin
   x:=3;
   Repeat
      y:=x*x;
      Writeln('x = ',x,' y = ',y);
      x:=x+1;
   Until x>9;
   Readln;
end.

Сойдет?

[Smitt&Wesson]

newerow1989, достал уже. Из-за таких как ты, начальниками становятся - придурки. А мы, спецы, вынуждены у них ботинки лизать. Пусть платит или идёт лесом.
Я тоже этим иногда "грешу", но исключительно представительницам женского пола.

[Stilet]

Чем достал? Тем что код дал?
Смитт, иди проспись.

[Smitt&Wesson]

Сообщение от Stilet

Чем достал? Тем что код дал?
Смитт, иди проспись.

Уже проснулся . Просто у дебила-начальника увидел не его курсовую, да и сам он тупой идиот, у киповца спрашивает марки силовых кабелей (главный энергетик, мать его). Наверное на таких "благодетелях" диплом и получил, а теперь пальцы веером.

[Stilet]

Ну а мы тут при чем? Народу хочется бабло косить не своими руками. Укатай ему в дыню и все дела.