Что выведится в фрагменьте задании s:0;a:=1;while a<2do begins:=s+a;a:=a+0.5;writeln(a:5:2,s:5:2)end;

Если ты переписал фрагмент правильно, то:
 1.50 1.00 2.00 2.50
Если end расположен перед writeln, то тогда  
 2.00 2.50