Программа 1:

program FirstNumberGreaterN;
var
n, i: integer;
begin
write('Введите число n: ');
readln(n);
i := 1;
while i * i <= n do
begin
i := i + 1;
end;
writeln('Первое число, большее ', n, ' - ', i * i);
end.

Программа 2:

program SquaresLessThanN;
var
n, i: integer;
begin
write('Введите число n: ');
readln(n);
i := 1;
while i * i <= n do
begin
writeln(i * i);
i := i + 1;
end;
end.

Программа 3:

program NumberAnalysis;
var
number, digit, count, sum: integer;
begin
write('Введите натуральное число: ');
readln(number);
count := 0;
sum := 0;
while number <> 0 do
begin
digit := number mod 10;
number := number div 10;
if digit = 3 then
count := count + 1;
if digit > 5 then
sum := sum + digit;
end;
writeln('a) Количество цифр 3 в числе: ', count);
writeln('b) Сумма цифр числа, больших пяти: ', sum);
end.

Это примеры программ на языке Pascal с использованием циклов с условием. В первой программе находится первое число, большее заданного числа n. Во второй программе выводятся натуральные числа, квадрат которых не превышает числа n. В третьей программе определяется количество цифр 3 в заданном числе и считается сумма цифр числа, больших пяти.