Question

СРОООООЧНОО ПОМОГИТЕ ПОЖАЛУЙСТА Даны два целых числа. Определить, равны ли они. Вывести 'Yes', если эти числа равны и 'No' в противном случае.​

Answer 1

                                     PascalABC.NET

begin

 //В условии сказано что числа даны. Про ввод ничего не говорилось.

 var (a, b) := (6, 8);    

 if a = b then

   writeln('Yes')

 else

   writeln('No');  

end.

Answer 2

Ответ:

PascalABC.NET

begin

 if ReadInteger() = ReadInteger() then Print('yes') else print('no');

end.