Question

Дано число. Ели оно кратно пяти, удвоить его и написать "Удвоенное число равно___". В противном случае написать "Число не кратно пяти".ПАСКАЛЬ АБЦ СРОЧНО!!!!!!!!!!!!!

Answer 1

var a:integer;

begin

write('Введите число: ');

read(a);

if a mod 5=0 then  

begin

a:=a*2;

write('Удвоенное число равно: ', a);

end;

if a mod 5 <>0 then write('Число не кратно пяти.');

end.