1.Дано целое число N.Написать программу ,увеличивающую число в 3 раза ,если оно больше нуля
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше  или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа  a и b .Написать программу , которая выводит сначала большее  число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ

я напишу часть кода.инициальзация очевидна1:readln(n);if n >3 then n:= n*3;writeln(n);2:readln(n);if n < 0 then n:= n*2else n:=0;writeln(n);3:readln(a,b);if a c:=a;a:=b;b:=c;end;writeln(a,b);4:аналогично с 3только сравниваеье снаяала а и b, а и с,затем b и с,если возникнут трудности код выложу