Для школьника, который только-только начал своё знакомство с информатикой.
var prod,temp:real;
begin
prod:=1;
repeat
readln(temp);
if (temp=5) then break;
if (temp<>0) then prod := prod * temp;
until (2*2=5);
writeln(prod);
end.
Const
n=10;
var
i,j,m,x:integer;
s,p:real;
begin
readln(x);
readln(m);
p:=1;
for j:=1 to m do
begin
for i:=1 to n do
s:=s+cos(x)/sin(x);
p:=p*s;
end;
writeln(p:4:2);
end.
Если PascalABC то вот:
var a,b,p:real;
begin
Writeln('Введите число a,b');
readln(a,b);
p:=(a*b);
Writeln('p = ', p);
end.
Var s,k,a:integer;
begin
writeln('введите четырёхзначное число');
readln(s);
k:=0;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
a:=s mod 10;
s:=s div 10;
k:=(a+k)*10;
writeln('перевёрнутое число ==> ',k/10);
end.