Разработать программы для решения следующей задачи с использованием циклов с предусловием и постусловием

1) предусловие

program w;

var x,y: real;

begin

x:=1;

while x<=2 do

begin

y:=10*x/3;

writeln ('x = ',x:3,'   y = ',y:0:3);  

x:=x+0.2

end

end.

2) постусловие

program r;

var x,y: real;

begin

x:=1;

repeat

y:=10*x/3;

writeln ('x = ',x:3,'   y = ',y:0:3);  

x:=x+0.2

until x>2

end.

Объяснение:

1) предусловие

задаем начальное значение х

Цикл:

проверяем условие

считаем у

выводим значения х и у на экран

изменяем х на шаг

2) постусловие

задаем начальное значение х

Цикл:

считаем у

выводим значения х и у на экран

изменяем х на шаг

проверяем условие