Нужно написать код программы. Ну как вы решили эту задачу в ABCPascal.

var   x, y: integer;  begin   readln(x);   if(x <= 5) then y := 2 * x   else y := x + 5;   write(y); end.

// PascalABC.NET 3.2, сборка 1361 от 12.12.2016// Внимание! Если программа не работает, обновите версию!begin var x:=ReadReal; Writeln(x<=5?x*x:x+5) end.