Программа на Pascal для вывода квадратов n первых положительных чисел с использованием цикла с постусловием (repeat/until):

program Squares;
var
n, i, square: Integer;
begin
Write('Введите количество чисел: ');
Readln(n);
i := 1;
repeat
square := i * i;
WriteLn('Квадрат числа ', i, ' = ', square);
i := i + 1;
until i > n;
end.

После запуска программы, она запросит у пользователя количество чисел (n), после чего выведет квадраты первых n положительных чисел.