Найти произведение цифр натурального числа n.

uses crt;
var x,y,z:integer;//описываем переменные целочисленного типа (-2..-1..0..1..2..3 и тд.) которые будут в программе
begin
  write('Введите x= ');//Выводим текст на экран
  readln(x);//читаем число с клавиатуры, и записываем его в переменную x
  write('Введите y= ');
  readln(y);
  write('Введите z= ');
  readln(z);
  if ((x+y>0))or((z+y>0))or((x+z>0)) then writeln('Сумма каких-либо двух чисел является положительной')//Если(if) x+y>0 или(or) z+y>0 или(or) x+z>0 то(then) выводим 'Сумма каких-либо двух чисел является положительной' иначе(else) выводим 'Сумма каких-либо двух чисел не является положительной'
  else writeln('Сумма каких-либо двух чисел не является положительной');
end.

Program zadanie;
uses crt;
Var a,b,c,a1,b1,c1:real;
    p,p1,s,s1:real;
Begin
Write('Vvedite storoni pervogo treugolnika: ');
read(a,b,c);
Write('Vvedite storoni vtorogo treugolnika: ');
read(a1,b1,c1);
P:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c)); {formula gerona}
P1:=(a1+b1+c1)/2;
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1)); {formula gerona}
writeln('Ploshad pervogo: ',s:4:2 );
write('Ploshad vtorogo: ',s1:4:2 );
if s=s1 then write('Treougolnii ravnovelikie') else write('Ploshadi ne ravni');
end.

Program zadanie;
uses crt;
Var an,a1,d,n:real;
Begin
Write('VVedite a1: ');
read(a1);
Write('VVedite d: ');
read(d);
write('Vvedite n: ');
read(n);
an:=a1+d*(n-1);
write('an:= ',an);
end.

program zadanie;
uses crt;
Var s,x:real; i,n:integer;
Begin
Write('VVedite n: ');
read(n);
Write('Vvedite x: ');
read(x);
s:=0;
for i:=1 to n do s:=sin(x*n);
write('Summa: ',s:4:2);
end.

uses crt;
var a,b,c,s,s_1,s_2:integer;
begin
clrscr;
writeln('Ââåäèòå òðè ÷èñëà');
readln(a,b,c);
s:=a+b;
s_1:=a+c;
s_2:=b+c;
if (s>0) then writeln('Ñóììà ïåðâîãî è âòîðîãî ÷èñëà ïîëîæèòåëüíà');
if (s_1>0) then writeln('Ñóììà ïåðâîãî è òðåòüåãî ÷èñëà ïîëîæèòåëüíà');
if (s_2>0) then writeln('Ñóììà âòîðîãî è òðåòüåãî ÷èñëà ïîëîæèòåëüíà');
if (s<=0) and (s_1<=0) and (s_2<=0) then writeln('Âñå ñóììû íå ïîëîæèòåëüíû');
readln
end.

uses crt;
var N,P:longint;
    cf:byte;
begin
clrscr;
write('N=');readln(N);
P:=1;
while N>0 do
   begin
     cf:=N mod 10;
     P:=P*cf;
     N:=N div 10;
   end;
writeln('Proizvedenie cifr = ',P);
readln
end.

var
i,a1,a2,b1,b2,c1,c2: integer;
s1,s2,p1,p2 : real;
begin
writeln('Enter the lengths of the first triangle one by one, pressing ENTER!');
readln(a1);
readln(b1);
readln(c1);
writeln('Enter the lengths of the second triangle one by one, pressing ENTER!');
readln(a2);
readln(b2);
readln(c2);
p1:=(a1+b1+c1)/2;
p2:=(a2+b2+c2)/2;
s1:=sqrt(p1*(p1-a1)*(p1-b1)*(p1-c1));
s2:=sqrt(p1*(p1-a2)*(p1-b2)*(p1-c2));
if abs(s1-s2)<0.0001 then writeln('The triangles are equal!')
                     else writeln('The triagnles are NOT equal!');
readln;
end.