Помогите пожалуйста написать программу на языке Паскаль

1.var x,y,S:real;beginx:=4.5;y:=3.5;write('Стороны прямоугольника: ');writeln('x=',x,'   y=', y);S:= x*y;writeln('Площадь прямоугольника: S=', S:4:3)end.2.beginwriteln('Идёт бычок, качается,');writeln('Вздыхает на ходу:');writeln('- Ох, доска кончается,');writeln('Сейчас я упаду!')end.