Даны три двухзначных числа подсчитать числа являющиеся квадратами натуральных чисел

uses
  Crt;
  
var
  a, b, c: Byte;
  
function Check(n : Byte) : Boolean;
begin
  Check := (Frac(sqrt(n)) = 0);
end;
  
procedure OutPut(n : Byte);
begin
  write('Chislo ', n, ' ');
  if (Check(n)) then
    WriteLn('javliaetsia kv. kornem')
  else
    WriteLn('ne javliaetsia kv. kornem');  
end;
 
begin
  ClrScr;
  Write('Vvedite a, b, c: '); ReadLn(a, b, c);
  OutPut(a); OutPut(b); OutPut(c);
  ReadLn;
end.

uses
  Crt;
  
var
  a, b, c: Byte; //переменные с числом
  
function Check(n : Byte) : Boolean; //функция проверки на "квадратность"
begin
  Check := (Frac(sqrt(n)) = 0); //возвращает TRUE, если остаток от корня квадратного числа равен нулю
end;
  
procedure OutPut(n : Byte); //вывод (исключительно для показа умения работать с подпрограммами)
begin
  write('Chislo ', n, ' '); //выводим число
  if (Check(n)) then //если является квадратом натурального числа
    WriteLn('javliaetsia kv. kornem') 
  else //иначе
    WriteLn('ne javliaetsia kv. kornem');  
end;
 
begin
  ClrScr; //очищаем экран
  Write('Vvedite a, b, c: '); ReadLn(a, b, c); //читаем числа
  OutPut(a); OutPut(b); OutPut(c); //выводим
  ReadLn;
end.