Re: Прошу помочь с составлением программ в Паскаль (см. внутри)

[Наташка]

Помогите пожалуйста..вопрос жизни и смерти...Нужно составить программу.Вот задача.
Дано целое число n если оно положительное увеличить его в 2 раза,иначе возвести его в квадрат...Прошу вас!!!!!

-----
От модератора
Создавайте новую тему для своего задания,а не флудите в чужих!

[Данила]

var n:integer;
begin
 readln(n);
 if n>=0 then n:=n*2 else n:=n*n;
 writeln(n);
end.