найти значение выражения y=x+5 при xamp;gt;0, в неприятном случае найти значение

Var
  x, y: Integer;

begin
  write('x=');
  readln(x);
  if x gt; 0
    then y := x + 5
  else
    y := 8 - 5 * x;
  writeln('y=', y);
end.

Паскаль: 

Program first;
Var y,x;
begin
writeln('Введите х');
readln(x);
if xgt;0 then
y:=x+5;
else 
y:=8-5x

writeln('y = ',y);
end.


С++
int main()

int x,y;
coutlt;lt;"Введите х"lt;lt;endl;
cingt;gt;x;
if(xgt;0)

y=x+5;

else

y=8-5x

coutlt;lt;"Y = "lt;lt;y;
system("pause");
return 0;