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

Дано целое число А. Если значение А > 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, разве нет??

1

Ответы и объяснения

Лучший Ответ!
2014-04-15T08:40:10+00:00
Writeln(a) -вывод результата перед end.
Комментарий удален
и нужно написать переменную которая будет выводиться на экран после выполнения алгоритма, т.е.
var A: real;
begin
readln (a);
if a>0
then a:=a+1;
writeln (a);
end.