Дано число ,если оно чётное , то умножить на 2 ,если нечётное то из под корня ; вывести полученное число .

Var n:integer;begin  readln(n);  if n mod 2 = 0 then writeln('Чётное → ',n,'*2=', n*2) else writeln('Нечётное → корень(',n,')=', sqrt(n));end.