А+А
var
A,B:longint;
begin
read(a,b);
write(a+b);
end.
Пятью - пять
var A,F,D:integer;
Begin
read(A);
F:=A div 10;
D:=F*(F+1);
if d=0 then write(25) else
write(D,25);
end.
Торт
var N:integer;
begin
read(N);
if N=1 then write(0) else
if n mod 2=0 then write(N div 2)
else write(N);
end.
Арбузы
var n,i,x,max,min:integer;
a:array [1..30000] of integer;
begin
read(n);
for i:=1 to n do begin
read(x);
a[i]:=x;
end;
max:=a[1];
for i:=2 to n do begin
if max
end;
Больше и меньше
var x,a,b:longint;
begin
read(a,b);
if (a
if (ab) then write('') else if (a=b)then write('=');
end.
