Дано натуральное число. Верно ли следующее: произведение его цифр меньше 50

uses crt;
function Prost(a:integer):boolean;{функция определения простого числа}
var i:integer;
    f:boolean;
begin
if a<2 then f:=false{если меньше 2, не простое}
else
 begin
  f:=true;{считаем что простое}
  i:=2;{начнем делить его начиная с 2}
  while (i<=round(sqrt(a))) and f do{и до корня из числа, дальше не стоит}
  if a mod i=0 then f:=false{если на что-то делится, не простое, дальше не проверяем}
  else i:=i+1;{следующий делитель}
 end;
Prost:=f;{значение функции}
end;
var  i,j,k,n:byte;
     f:boolean;
begin
clrscr;
n:=0;
for i:=6  to 100 do{наш диапазон}
 begin
  f:=false;{примем что для этого числа гипотеза не верна}
  j:=2;{первое слагаемое}
  while(j<=i-4) and not f do{пока оно меньше на 4 числа и гипотеза не доказана}
  if Prost(j) then{если слогаемое простое}
   begin
    k:=2;{ищем второе}
    while(k<=i-j-2)and not f do{пока меньше число-второе-2}
    if Prost(k)and Prost(i-k-j) then{если и второе простое и разность
                                    (третье слагаемое) простое}
     begin
      f:=true;{гипотеза для этого числа верна}
      write(i:3,'=',j:2,'+',k:2,'+',i-j-k:2,' ':4);{выводим}
      n:=n+1;{считаем}
     end
    else k:=k+1;{если для этого слагаемого нет, смотрим следующее}
    if not f then j:=j+1;{наращиваем первое}
   end;
 end;
if n=95 then write('Гипотеза Гольдбаха на интервале 6..100 верна')
else write('Гипотеза Гольдбаха на интервале 6..100 не верна');
readln
end.

uses crt;
var n,p:longint;
begin
clrscr;
write('N=');
readln(n);
writeln('Верно ли что произведение цифр меньше 50?');
p:=1;
while n>0 do
 begin
  p:=p*(n mod 10);
  n:=n div 10;
 end;
writeln(p<50);
writeln('Произведение цифр=',p);
readln
end.

uses crt;
var p,u,s,sg:real;
    g:byte;
begin
clrscr;
writeln('Сведения о сборе ячменя за последние 6 лет ');
writeln;
writeln('---------------------------------------------');
writeln('| Год | Площадь | Ср.урожайнoсть |  Урожай  |');
writeln('---------------------------------------------');
writeln('|  1  |  100,00 |      20.00     |  2000.00 |');
p:=100;
u:=20;
s:=2000;
for g:=2 to 6 do
 begin
  p:=p*1.05;
  u:=u*1.02;
  sg:=p*u;
  s:=s+sg;
  writeln('|',g:3,'  |',p:8:2,' |',u:11:2,'     |',sg:9:2,' |');
 end;
writeln('---------------------------------------------');
write('Общий урожай за 6 лет:',s:21:2);
readln
end.

uses crt;
const prst=[2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97];
var  i,j,k,n:byte;
     f:boolean;
begin
clrscr;
n:=0;
for i:=6  to 100 do{наш диапазон}
 begin
  f:=false;{примем что для этого числа гипотеза не верна}
  j:=2;{первое слагаемое}
  while(j<=i-4) and not f do{пока оно меньше на 4 числа и гипотеза не доказана}
  if j in prst then{если слогаемое простое}
   begin
    k:=2;{ищем второе}
    while(k<=i-j-2)and not f do{пока меньше число-второе-2}
    if (k in prst)and (i-k-j in prst) then{если и второе простое и разность
                                    (третье слагаемое) простое}
     begin
      f:=true;{гипотеза для этого числа верна}
      write(i:3,'=',j:2,'+',k:2,'+',i-j-k:2,' ':4);{выводим}
      n:=n+1;{считаем}
     end
    else k:=k+1;{если для этого слагаемого нет, смотрим следующее}
    if not f then j:=j+1;{наращиваем первое}
   end;
 end;
if n=95 then write('Гипотеза Гольдбаха на интервале 6..100 верна')
else write('Гипотеза Гольдбаха на интервале 6..100 не верна');
readln
end.