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

X и Y целые числа.

readkey?

А не readln?

первую строку и предпоследнюю для версии паскаль ABC можно убрать, они выполняют задержку экрана..

Нужно писать readln?

можно писать readln (курсор в этом случае переходит на следующую строку), но можно read (курсор остается на строке, где напечатано будет 'введите x')

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

// PascalABC.NET 3.1, сборка 1256 от 21.06.2016begin  var x:=ReadInteger('x=');  Writeln('y=',x>0?5*x:x*x)end.Тестовое решениеx= 4y=20x= -4y=16