Х+у=61
у+а=94
а+х=53
складываем
2х+2у+2а=208
х+у+а=208\2
х+у+а=104
общее количество знакомых
тогда
х=98,104-98=6
у=150,150-104=46
а=130,130-104=26
6+46+26=78
человек есть знакомых общих
тогда ответ будет
104-78=26
Ответ-----26 человек
var a:real;
begin
readln(a);
a:=a/60; writeln('a=',a,'мин');
a:=a/60; writeln('a=',a,'час');
readln;
end.
Var i:integer;
x:array[1..5]of integer;
begin
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.