viết chương trình nhập vào số nguyên x, tính y theo yêu cầu sau.- Nếu x>0 thì y=x+1. -Nếu x<0 thì y=x^2. giải giúp e e cần gấp ạ

uses crt;

var x,y: integer;

begin

clrscr;

write (‘nhap x: ‘);  readln (x);

if x>0 then y:=x+1;

if x<0 then y:=x*x;

writeln (‘gia tri cua y la: ‘,y);

readln;

end.