Program qq;
var a,b,c, max:real;
begin
read(a,b,c);
if (a>b) then
begin
if (a>c) then max:=a
else max:=c;
end
else
begin
if (b>c) then max:=b
else max:=c;
end;
writeln(max);
end.
Var x:integer;
begin
read (x);
if (x<=5) then writeln (power (x,6)) else writeln (x,'>5');
end.
Var a,b,c,d,x,y: longint;
function NOD(a,b:integer):integer;
begin
while(a<>0) and (b<>0) do
if a>=b then a:= a mod b
else b:= b mod a;
NOD:=a+b;
end;
function NOK(a,b:integer):integer;
begin
NOK:=a*b div NOD(a,b)
end;
Begin
Read(a,b,c,d);
x:=NOK(a,b);
y:=NOK(c,d);
Writeln(NOK(x,y));
end.
<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Reverse.Println
end.
<u>Пример</u>
n= 13
35 -29 -50 -32 -44 23 -47 -46 37 -34 11 -22 -11
-11 -22 11 -34 37 -46 -47 23 -44 -32 -50 -29 35