Question

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

Answer 1

1.
var x,y,S:real;
begin
x:=4.5;
y:=3.5;
write('Стороны прямоугольника: ');
writeln('x=',x,'   y=', y);
S:= x*y;
writeln('Площадь прямоугольника: S=', S:4:3)
end.

2.
begin
writeln('Идёт бычок, качается,');
writeln('Вздыхает на ходу:');
writeln('- Ох, доска кончается,');
writeln('Сейчас я упаду!')
end.