Program gt;
var a,b,c,m:real;
begin
readln(a,b,c);
m:=(a+b+c)/3;
writeln(m:1:6);
end.
По углам и по середине один
Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию
Аналогично
begin
for var a := 100 to 999 do begin
for var b := 100 to 999 do begin
if a * b = a + b then writeln(a,'-', b);
end;
end;
end.