Помогите написать программу в Паскале и блок-сxему.
Задача: ввести 10 чисел, если число положительное, то от него отнять 0,5, если число отрицательное, то ничего с ним не делать. Вывести результат на экран.

var a,b,i: real;beginb:=0,5;for i = 1 to 10 dobeginreadln (a);if a<0 thenwriteln (a)elsea:=a-b;writeln (a);end;end.