Проверте, содержит ли квадрат заданого натурального числа А цифру 3 в своей записи

while a <> 0 do
    if a mod 3 = 0 then bebin
         write("да")
    end
    else 
         a=a div 10;

uses crt;
var x,i:longint;
    f:boolean;
begin
clrscr;
write('Введите натуральное число x=');
readln(x);
x:=x*x;
writeln('x^2=',x);
for i:=1 to 10 do
if x mod 10=3 then break
else x:=x div 10;
if x mod 10=3 then writeln('В числе есть цифра 3')
else writeln('В числе нет цифры 3');
readln
end.

uses crt;
var x:longint;
    f:boolean;
begin
clrscr;
write('Введите натуральное число x=');
readln(x);
x:=x*x;
writeln('x^2=',x);
f:=false;
while (x>0)and not f do
 begin
  if x mod 10=3 then f:=true
  else x:=x div 10;
 end;
if f then writeln('В числе есть цифра 3')
else writeln('В числе нет цифры 3');
readln
end.

uses crt;
var x:longint;
    f:boolean;
begin
clrscr;
write('Введите натуральное число x=');
readln(x);
x:=x*x;
writeln('x^2=',x);
f:=false;
repeat
if x mod 10=3 then f:=true
else x:=x div 10;
until (x=0)or f;
if f then writeln('В числе есть цифра 3')
else writeln('В числе нет цифры 3');
readln
end.