1. Преобразуйте в линейную форму следующие выражения:
​

1.123456789-номер телефона

2.мама помыла посуду-ткстовая информация

3.какой нибудь рисунок

4.музыка

5.кино 

страус! он бегает со скоростью 80 км/ч

блок смемы не умею

var i: integer

s,n: real;

begin

  repeat

      read(n);

      if n> 0 then s: =s+n

  until n=0;

  writeln(s);

end.

var a,s: real;

i: integer;

begin

  read(a);

  repeat

      i: =i+1;

      s: =s+1/i

  until s> a;

  writeln(i,s);

end.

program funkci9;

var y,x: integer;

begin

x: =-4;

writeln ('y         x');  

while x< =4 do

begin 

y: =abs(x+2)

writeln (y,'     ',x);

x: =x+1;

end:

readln

end.