1 это предпоследние выкамвам
Кбайт больше потому что 1
Каждой букве соответствует своя цифра, например: 495+459=954
Var
n:integer;
Begin
Write('Введите число ');
Readln(n);
if sqr(n) = (4*(sqr(n div 10)*(n div 10)+sqr(n mod 10)*(n mod 10))) then write('Ответ положительный') else write('Ответ отрицательный');
<span>End.</span>