ЗАДАНИЕ В ПАСКАЛЕ! Var g,h: integer; x,y: real; x0,y0,xm,ym,Mx…

Это цикл. Код после do и до end; выполняется 620 — 20=600 раз, так как счет идет от 20 и заканчивается 620. Но тут ошибка. После begin и до end; нет увеличения счетчика xm (то есть эта переменная будет всегда равна 20), нужно добавить строху xm: =xm+1 ДО end;