Question

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

32fdf63b42000cfb7f5e5de24c50efbf.docx

Answer 1

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

Answer 2

// PascalABC.NET 3.2, сборка 1361 от 12.12.2016
// Внимание! Если программа не работает, обновите версию!

begin var x:=ReadReal; Writeln(x<=5?x*x:x+5) end.