Напечатать квадраты N чисел (Turbo Pascal)

[KemanSR]

Я тоже новичек, но мне кажется чтобы написать код нужно набрать его в среде, а не попросит помощи. Считаю текущую задачу простой.

[siato]

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

Я тоже новичек, но мне кажется чтобы написать код нужно набрать его в среде, а не попросит помощи. Считаю текущую задачу простой.

Для тех кто учится на программиста возможно и простая. Но моя специальность почти никак не связанна с программированием, для меня это темный лес, но вот нам решили ввести на 1 семестр программирование... Сижу мучаюсь

[siato]

Ввести с клавиатуры и напечатать квадраты N чисел, если введено кратное 3 положительное число, ввод и печать прекратить

Вот что надумал я, правильно или нет, но больше нечего в голову не лезет

repeat
readln(n);
if (n<=0) or (n mod 3<>0) then
writeln(n*n);
until (n>0) and (n mod 3=0)

[Mad_Cat]

var n:integer;
begin
readln(n)
while (n mod 3<>0) and (n>0)
do begin
writeln(n*n);
readln(n);
end;
end.