var
s,a : integer;
begin
a := 2;
s := 0;
While a <= 20 do
begin
s := s + sqr(a);
a := a +2;
end;
writeln (s);
readln();<span>
end.</span>
Если первые две монеты легче двух других, то взвешиваем каждую в отдельности.
Если первые две монеты тяжелее двух других, то взвешиваем две вторые по отдельности.
Если первые две монеты по весу одинаковы со вторыми двумя, то пятая монета фальшивая.
var
x1,y1,x2,y2:integer;
begin
readln(x1);
readln(y1);
readln(x2);
readln(y2);
if (x1+y1+x2+y2) mod 2 = 0 then
writeln('ONI IMEUT ODINAKOVIJ ZVET');
else
writeln('ONI IMEUT RAZNIJ ZVET');
end.