Составьте программку, определяющую, является ли введённое с клавиатуры целое число чётным.

Basic

input A     / вводим число с клавиатуры
if A/2 then B = "четное" else B = "нечетное" / если А делится на 2, то чет, по другому нечет.
print A" - "B    / печать А - чет либо нечет.
end

Pascal

program checker;
var a,c:integer;
begin
writeln('Введите число, четность или нечетность которого следует найти.');
readln(a);
c:=a mod 2;
 if c lt;gt;0 then begin
 writeln('Число ',a,' не является четным');
 end;
 if c=0 then begin
 writeln('Число ',a,' является четным.');
 end;
readln;
end.