вас, ! решается ! найдите ошибки в программе 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,чтобы получилась полноценная программа