Величина х-положительная Величина х-отрицательная Запись ** языке паскаль

Question

Величина х-положительная
Величина х-отрицательная
Запись на языке паскаль

Answer 1

Var a:integer;
begin
read(a);
if (a>=0) then write('+') else write('-');
end.