Var N,K,S,M: integer;begin{1-я задача}writeln("Введите натуральное число");readln(N);if N mod 10 = 8 then writeln("Число оканчивается на 8") else writeln("Число не оканчивается на 8");{2-я задача}writeln("Введите количество гостей пришедших к Пете");readln(K);if (25-K*2)>0 then writeln("Конфет хватит") else writeln("Конфет недостаточно");{3-я задача}writeln("Введите количество рублей у Пети, а затем цену одной тетради");readln(S);readln(M);if (S-M*5)>=0 then writeln("Петя сможет купить пять тетрадей"); else writeln("Пяти тетрадей не купить");end.