Срочно подскажите мне!!!! Дано целое число А. Если значение А > 0, то необходимо ...

Question

Срочно подскажите мне!!!!

Дано целое число А. Если значение А > 0, то необходимо
увеличить его на единицу. Разработать схему алгоритма для решения этой
задачи. Протестировать алгоритм для A=5, A=-4, A=0. сделать в паскале.


Программу я написала:

Program n1;
var A: real;
begin
readln (a);
if a>0
then a:=a+1;
writeln;
end.


правильно или нет? и какие у меня должны выходить значения?
если я 5 подставляю выходит 5, хотя по условию 5+1=6, разве нет??

Answer 1

Writeln(a) -вывод результата перед end.

Comments

и нужно написать переменную которая будет выводиться на экран после выполнения алгоритма, т.е.
var A: real;
begin
readln (a);
if a>0
then a:=a+1;
writeln (a);
end.