правильно же или что-то не понимаю?

K:=0
for x:=1 to 2 do
for i:=1 to 3 do
if x=i then for j:= 1 to 3 do k:=k+1
writeln ('k =', k)

P.S модеры, это не контрольная и не экзаменационные задания, а дали порешать

указанными координатами X, Y на окружности радиуса R с центром в
начале координат." я её составил но почему у меня всегда получается что точка не лежит на окружности хотя она лежит. Может я где то ошибся ?

var


x,y,r:integer;


Begin


Write('Введите координату X: ');


Readln(x);


Write('Введите координату Y: ');


Readln(y);


Write('Введите длину радиуса R: ');


Readln(r);


If (sqr(x)+sqr(y))=r


then writeln('Точка лежит на
окружности!')


Else writeln('Точка не лежит на
окружности!');




End.

Например, я живу в России, но хочу чтобы телефон воспринимал приложения с Америки или что-то типа того. Для этого его надо перепрошить, кажется?

Определите какое число будет напечатано в результате выполнения следующего алгоритма
dim a,b,t,M,R as integer
Function F( x as integer) as integer
begin F=19-19*(x-1)*(x-1)
end
begin
a=1- b=20
M=a R=F(a)
for t=a to b
if F(t)>R then
M=t
R=F(t)
end
next
print m
End