Написать программу в паскале. на вход подается х, на выход y = 5*x если x> 0 и y = х*х иначе x и y целые числа.

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016
begin
  var x:=ReadInteger('x=');
  Writeln('y=',x>0?5*x:x*x)
end.

Тестовое решение
x= 4
y=20

x= -4
y=16

Uses crt;
var x,y:integer;
begin
write('введите х'); read(x);
if x>0 then y:=5*x else y:=x*x;
write('y=', y);
readkey;
end.