<em><u>пожарить яйца</u></em>
<em><u>1. достать сковороду</u></em>
<em><u>2.налить масло</u></em>
<em><u>3. включить плиту</u></em>
<em><u>4.достать яйца</u></em>
<em><u>5. разбить их в сковороду.</u></em>
<em><u>6. посолить</u></em>
<em><u>7.пожарить.</u></em>
<em><u>8. выключить плиту.</u></em>
<em><u>9. съесть яйца
подойдёт?
</u></em>
2. Insert
3. Delete
5. Caps Lock
6. Alt
8. <span>Num Lock
11. Home
15. End</span>
Var n:integer;
b:boolean;
begin;
readln(n);
if frac(sqrt(n))=0 then b:=true else b:=false;
writeln(b);
<span>end.</span>
Текстовае даные-что нибудь написать декорирование- разукрасить наглядность более точнее