Процедураны қай кезде қолдана аламыз?​

зеркало

коромысло

дупло

дуло

крыло

program cikl;

var a,b,c,i,j,k: integer;

begin

writeln('bbedute a,b,c');

readln(a,b,c);

i: =a;

j: =b;

k: =c;

a: =j;

b: =k;

c: =i;

writeln('a=',a,'b=',b,'c=',c);

readln

end.

var a,s,an: real;

i,n: integer;

begin

  read(a,n);

  an: =1;

  for i : = 0 to (n+1) do

      s: =s+an;

      an: =an*(-a);

  end;

  writeln(s);

end.

var a,b: real;

begin 

  readln(a,b);

  if a*b< 0 then writeln(a*b*2) else writeln(a*b*1.5);

end.