помогите с Delphi k:=(SQR(arctan(z))+(Abs(sqr(x)-Exp(3*Ln(y))))/SQR(y)+x)Sqr(sin(Exp(3*Ln(y)))); что тут не верно?

ОБЪЯСНИТЕ ПОЖАЛУЙСТА КАК ДЕЛАТЬ

алгоритм при K =
4 по шагам и записать значение величины
S

русские буквы
program telegraf2014;uses crt;label m;var a:array['а'..'я'] of string; i,j:integer; t:string;begina['а']:='.-';a['б']:='-...';a['в']:='.---';a['г']:='--.';a['д']:='-..';a['е']:='.';a['ж']:='...-';a['з']:='--..';a['и']:='..';a['й']:='.---';a['к']:='-.-';a['л']:='.-..';a['м']:='--';a['н']:='-.';a['о']:='---';a['п']:='.--.';a['р']:='.-.';a['с']:='...';a['т']:='-';a['у']:='..-';a['ф']:='..-.';a['х']:='....';a['ц']:='-.-.';a['ч']:='---.';a['ш']:='----';a['щ']:='--.-';a['ъ']:='-..-';a['ы']:='-.--';a['ь']:='-..-';a['э']:='..-..';a['ю']:='..--';a['я']:='.-.-';m:ClrScr;GotoXY(30,1);writeln('Это программа телеграф');GotoXY (18,2);writeln('Введите слово строчными буквами на русском языке!');readln(t);beginfor i:=1 to length(t) dobeginif t[i]<>' 'thenbeginwrite (a[t[i]],' '); end; end;readln; end;goto m;end.

и помогите, пожалуйста, окно сделать

Program Frankenstein;
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.

Почему программа всегда показывает что точка не лежит на окружности, хотя на самом деле она лежит! Где я ошибся?

условия отбора в плане расставления знаков?
см приложения

указанными координатами 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.