Прошу вас, помогите! Решается оценка! Найдите ошибки в программе

1) Program z1;

var a:integer;

begin

a:=10;

while a<5 do

writeln (a) ;

a:=a+1;

End.

2) Program z2;

var a, s:integer;

begin

a:=1; s:=0;

while a<10 do begin

s:=s+a/2;

end;

writeln (s) ;

end.

в 1 программе значение переменной а больше чем в цикле и поэтому 10 не меньше 5 и цикл не выполняется

2 ошибка в том, что writeln выводит значение, а после него еще есть условие про а

Если бы а было меньше пяти, то программа зациклилась из за a:=a+1, но если бы было меньше пяти и эта строчка была выше writeln (a), то цикл выполнился

Во 2 программе

s:=s+a/2 получится не целое число, которое соответсвует типу real

И не хватает еще одного действия после s:=s+a/2; там должна участвовать переменная a, чтобы получилась полноценная программа