program rownania;
var odpwoiedz : String;
     a: real ;
     x,y : array[1..50] of real;
     i:integer;
     plik:text;


Function f (x:real):real;
 begin
  if x<1 then
  f:=2*x - cos (3*a)
  else
  f:= a* x*x +3 ;
  end;


begin
  Writeln ('Czy rozpoczac dzialanie?') ;
  Readln(odpwoiedz);

  if ( (odpwoiedz = 'tak') or (odpwoiedz = 'Tak') ) then
  begin
     repeat

		Writeln ('Prosze o podanie liczby a');
		Readln (a);

      until a<>0;




     for i:=1 to 12 do
     begin
	x[i]:=0.2 * i;
	y[i]:=f(x[i]);

    end;


    assign (plik, 'data.dat') ;
    rewrite (plik);
     for i:=1 to 12 do
    	 writeln (plik, x[i]:0:2,'    ',y[i]:0:2 );

      close (plik);

 end else
 writeln ('Program przerwany')

end.