ПОМОГИТЕ , ПОЖАЛУЙСТА!! Дано число ,если оно чётное , то умножить на 2 ,если нечётное то из под корня ; вывести полученное число .
Var n:integer;begin readln(n); if n mod 2 = 0 then writeln('Чётное → ',n,'*2=', n*2) else writeln('Нечётное → корень(',n,')=', sqrt(n));end.
Большое спасибо !