Var
p: integer;
begin
readln(p);
if p=5 then print('Молодец!')
else if p = 4 then print('Хорошо!')
else if p<=3 then print('<span>Лентяй!</span>')
end.
В первом номере: 10.
Во втором номере: 2
В третьем номере: 10
В четвертом номере: 24
В пятом номере: 1
В шестом номере: 2
В седьмом номере: 9
В восьмом номере: 2
Ответ получается равным 10
Компьютер -5
Телефон-3
Часы - 7
VAR
A,B,C,D:integer;
Begin
WriteLn('введите числа A,B,C,D);
ReadLn(A,B,C,D);
if (A=B) and (B=C) and (C=D) then
WriteLn('все числа равны');
else
if (A=B) or (B=C) or (C=D) or (A=D) then
Begin
Write ('только');
WritweLn('два три числа равны');
end
else
WriteLn('все числа разные');
end.