Если правильно понял, то:
var a, b: integer;
begin
readln(a, b);
writeln(b, a);
end.
Ну скорее всего 77 так как мальчики должны были всех поздравить и было 77 пожатей
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,y,z):=ReadReal3('Введите x,y,z:');
Writeln(Max(x*x+y*y*y,y*y+z*z*z)-4)
end.
<u>Пример</u>
Введите x,y,z: 2.6 -1.05 4
61.1025
........................................
Program x;
var a,b,c,d,n:integer;
begin
writeln("введите четырехзначное число");
readln(n);
a=n div 10;
b=(n div 100) mod 10;
c=(n mod 100) div 10;
d=n mod 10;
writeln("Ответ: ", Sqr(a+b+c+d));