Var s,k: integer;

begin

s : = 0;

for k : = 12 to 15 do

s : = s + 13;

writeln(s);

end.

паша535    1   14.11.2019 20:20    1