дано целое число .Если оно является положительным,то умножить его на 3;в противном случае не изменять его.Вывести полученное число.

uses crt;var n:integer;beginclrscr;write('n = '); readln(n);if(n>=0) then n:=n*3;writeln(n);readlnend.