Question

Pascal
Составить программу, которая считывает целое число. Если оно четное и положительное, увеличить его в два раза, в противном случае увеличить в 10 раз

Answer 1

program p1;
var x: integer;
begin
    writeln('введите число');
    readln(x);
    if (x mod 2 = 0) and (x > 0) then
        x:=x*2
    else
        x:=x*10;
    writeln(x);
end.