<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
#include <iostream>
int main()
{
float x1, y1, x2, y2, x3, y3, x4, y4;
cin >> x1 >> y1 >> x2 >> y2 >> x3 >> y3;
if (x1 == x2 )
x4 = x3;
else if (x1 == x3)
x4 = x2;
else x4 = x1;
if (y1 == y2 )
y4 = y3;
else if (y1 == y3)
y4 = y2;
else y4 = y1;
cout << x4 << ", " << y4;
return 0;
}