Схематично так как несколько друзей и занятий
<span>uses</span> crt;
<span>var</span> a<span>,</span>s<span>:</span><span>integer</span>;
<span>begin</span>
clrscr;
<span>repeat</span>
<span>write</span><span>(</span><span>'Введите трехзначное число a='</span><span>)</span>;
<span>readln</span><span>(</span>a<span>)</span>;
<span>until</span><span>(</span>a><span>=</span><span>100</span><span>)</span><span>and</span><span>(</span>a<<span>=</span><span>999</span><span>)</span>;
s<span>:=</span><span>0</span>;
<span>while</span> a><span>0</span><span>do</span>
<span>begin</span>
s<span>:=</span>s<span>+</span>sqr<span>(</span>a <span>mod</span><span>10</span><span>)</span><span>*</span><span>(</span>a <span>mod</span><span>10</span><span>)</span>;
a<span>:=</span>a <span>div</span><span>10</span>;
<span>end</span>;
<span>if</span> a<span>*</span>a<span>=</span>s<span>*</span>s<span>*</span>s <span>then</span><span>write</span><span>(</span><span>'Квадрат числа=сумме кубов его цифр'</span><span>)</span>
<span>else</span><span>write</span><span>(</span><span>'Квадрат числа<>сумме кубов его цифр'</span><span>)</span>;
<span>readln</span>
<span>end</span>.
Var p,h: Real;
begin
writeln('Введите p,h: ');
readln(p,h);
writeln('P=p*g*h=',p*10*h);
end.
"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"