Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

HELP ME, PLEASE
1) Составьте программу, проверяющую, является ли введенное число четным или нечетным.

Ответ оставил Гость

var a: integer;
begin 
    write(Введите число: ); 
    read(a); 
    if a mod 2 = 0 then writeln(Число , a, четное)                 
                          else writeln(Число , a, нечетное)
end.