Question

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

Answer 1

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