<span>Поправил
----------------------------------------------
Program lala;
var a:integer;
begin
read(a);
if a mod 2 =0 then
writeln(a,' Чётное число')
else writeln (a, ' Нечётное число');
end.</span>
В текстовый редактор нельзя вставить аудиофайл.
Var i,k,n: integer;
begin
for i:=100 to 999 do
begin
k:=i; n:=0;
repeat
n:=n+round(power(k mod 10,3));
k:=k div 10;
until k=0;
if n=i then write(i,' ');
end;
end.
153 370 371 407
1.1
2.4
3.2
4.4
5.3
6.2
7.1
8.1
9.3