Var
x:integer;
begin;
for x:=1 to 10 do
writeln(x,' см=',x*2.54,' дюйма');
end.
2)простейшие фигуры, рисуемые с помощью специальных инструментов
Деревья . Они в результате фотосинтеза выделяют кислород и забирают себе угл газ
Кампютерная мышка. управляет экраном. она может передвигать. любые файлы на нужное место. без мыши нельзя не куда нажать
Var i,p:real;
begin
i:=0.1;
p:=1;
while (i<=10) do
begin
p:=p*(1+sin(pi*i/180));
i:=i+0.1;
end;
writeln ('Rezultat: ',p);
readln;
end.