var
n1 : real;
n2 : real;
rez : real;
begin
write ('Введите число n1: ');
readlnI(n1);
write ('Введите число n2: ');
readln(n2);
rez := sql(n1)+sql(n2);
writeln('Результат выполнения: ',rez);
end;
Проснулся-умылся-оделся-позавтракал-пошёл гулять
"<span>Я вас любил безмолвно, безнадежно, то робостью, то ревностью томим." - 67 символов (включая знаки препинания и пробелы)
Количество информации = 67*16 = 1072 бита
"</span><span>Я памятник себе воздвиг нерукотворный." - 38 символов
</span>Количество информации = 38*16 = 608 бит