Question

помогите это срочно пожалуйста​

Answer 1

Ответ:

Объяснение:

var a : integer;

begin

read(a);

if (a mod 7=0) or (a mod 13 =0) then

write('Happy') else write('Better use another');

readln

end.