Помогите пожалуйста!!Программка в Паскаль.1)Ввести с клавиатуры натуральное число

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)gt;0 then writeln("Конфет хватит")
   else writeln("Конфет недостаточно");
3-я задачка
writeln("Введите количество рублей у Пети, а потом стоимость одной тетради");
readln(S);
readln(M);
if (S-M*5)gt;=0 then writeln("Петя сможет покупать 5 тетрадей");
  else
 writeln("5 тетрадей не покупать");
end.