Var a,b,c,d:integer;
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.
<span>прости я російська і пишу з перекладача прости що не так як там у вас на <span>Укрина</span></span>
Да
например человек муж род
лиса жен. род
окно ср. род
белый белая белое
4 МБит/c = 4 * 1024 = 4096 КБит/с
4096 КБит/с = 4096 / 8 = 512 КБайт/c
3072 / 512 = 6 секунд
Программа получает на вход N, почле чего в цикле постепенно обрабатывает все натуральные числа от 1 до N включительно и в ячейку памяти s откладывает их квадраты.
program summa;
uses crt;
var N,a,s,i: integer;
begin
read(N); a:=0; s:=0;
for i:=1 to N do
begin
a:=a+1;
s:=s+(a*a);
end;
writeln(s);
end.