uses Drawman;
begin
Field(22,6);
onvector(3,5);
pendown;
onvector(-2,0);
onvector(0,-4);
onvector(2,0);
onvector(0,2);
onvector(-2,0);
penup;
onvector(3,-2);
pendown;
onvector(1,4);
onvector(1,-4);
penup;
onvector(-2,2);
pendown;
onvector(2,0);
penup;
onvector(1,-2);
pendown;
onvector(0,4);
onvector(2,0);
onvector(0,-2);
onvector(-2,0);
penup;
onvector(3,-2);
pendown;
onvector(1,4);
onvector(1,-4);
penup;
onvector(-2,2);
pendown;
onvector(2,0);
penup;
onvector(3,2);
pendown;
onvector(-2,0);
onvector(0,-4);
onvector(2,0);
onvector(0,2);
onvector(-2,0);
penup;
onvector(3,-2);
pendown;
onvector(1,4);
onvector(1,-4);
penup;
onvector(-2,2);
pendown;
onvector(2,0);
penup;
onvector(1,2);
pendown;
onvector(0,-4);
penup;
onvector(2,4);
pendown;
onvector(0,-4);
penup;
onvector(0,2);
pendown;
onvector(-2,0);
penup;
onvector(-19,-3);
end.
program lala;
var:h,g,t:real;
begin
writeln('vvedite vusotu i uskorenie');
readln(h,g);
t:=sqrt((2h)/g);
writeln('vremy padenia');
readln(t);
end.