Помогите решить по поскалю
Написать программу на языке Паскаль с ветвлением для решения следующей задачи: Дано целое число А. Если значение А > 0, то необходимо умножить его на 10, иначе уменьшить на 10.
По дате
По рейтингу
1234567
var A: int64;
begin
write('A: ');
readln(A);
if A>0 then A:=10*A else A:=A-10;
writeln(A)
end.