Question

ПОМОГИТЕ ПОЖАЛУЙСТА.СРОЧНО!!!Задача Ne 1: Введите число Если оно делится на 7 без остатка, то увеличить его на 10, в противном случае увеличить его в 10 раз.
​

Answer 1

program gdd;

var

a:integer;

begin

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

readln(a);

if a mod 7 = 0 then

a:=a+10

else

a:=a*10;

writeln('Ответ: ',a);

end.