Составьте задачи в программе Pascal. Заранее

1.

program z1;

var a:real;

begin

write ('a = ');

readln (a);

writeln ('P = ',3*a);  

writeln ('r = ',a/(2*sqrt(3)):0:3)

end.

2.

program z2;

var t:integer;

begin

write ('t = ');

readln (t);

writeln ('V = ',200/(t*60):0:3,' м/с')

end.

Объяснение:

Смотри картинки

program z1;

var a:real;

begin

write ('a = ');

readln (a);

writeln ('P = ',3*a);  

writeln ('r = ',a/(2*sqrt(3)):0:3)

end.

program z2;

var t:integer;

begin

write ('t = ');

readln (t);

writeln ('V = ',200/(t*60):0:3,' м/с')

end.

Объяснение: