Var n:integer;
procedure del(x:integer);
var d:integer;
begin
d:=2;
if(x>1)then begin
while x mod d<>0 do d:=d+1;
if(x div d >1)then write(d,'*')
else write(d);
del(x div d)
end
else exit;
end;
begin
read(n);
write(n, ' = ');
if(n<2) then write(n)
else del(n);
end.
Var a,b,c:word;
begin
read(a,b,c);
if (a+b>c) and (a+c>b) and (b+c>a) then begin write('Est');
if (sqr(a)>sqr(b)+sqr(c)) or (sqr(c)>sqr(b)+sqr(a)) or (sqr(a)>sqr(c)+sqr(b)) then write ('Tupoy')
end
else write('Net');
end.
Var
mas:array[1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
mas[i]:=random(41)-20;
write(mas[i],' ');
end;
end.
Var
i,sum:integer;
begin
sum:=0;
for i:=1 to 100 do
if (i mod 2<>0) then
sum:=sum+i;
write(sum);<span>
end.</span>