//Pascal ABC.NET v3.1 сборка 1172
begin
writeln(range(60,80).where(x -> x mod 5=0).Sum);
end.
Вывод:
350
<span>Двоичное кодирование</span>
some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text some text
Var a,b,x: integer;
begin
readln(a,b);
x:=a;
a:=b;
b:=x;
writeln(a, ' ', b);
end.