Var a,b: Integer;
begin
writeln('Введите число a:');
readln(a);
writeln('Введите число b:');
readln(b);
writeln(a,'² = ',a*a);
writeln(b,'² = ',b*b);
end.
Var A:real;
Begin
Write('Введите число: ');ReadLn(A);
if A>=0 then A:=sqrtA
else write(a) ;
Write(A);
End.
Если это КУМИР, то не хватает числа повторений.
А что такое "шея" (?) цикла - понятия не имею.
Данные записаны в одной строке
координата одномерная А[i]
Диск наверное...................