Question

дано некоторое число если оно четное уменьшить его в 2 раза,написать программу

Answer 1

program test; 
var a:integer;
 begin 
 read(a); 
if a mod 2 =0 then 
 a:=a div 2;   
write(a); 
end.

Answer 2

А можешь объяснить начиная со слова если а остаток 2???