program pierwszy;
uses crt;
var plik:text;
    a,b,x,y:real;
    i:integer;
begin
clrscr;
assign(plik,'dane.dat');
rewrite(plik);
repeat
writeln('Podaj a i b');
readln(a,b);
until a<>b;
i:=0;
for i:=1 to 50 do
begin
x:=0.1*i;
if x>=2 then
begin
y:=a*cos(b);
writeln (plik, x:0:4, 'x    y',y:0:4);
end
else if x>2 then
begin
y:=a*x*x/(a-b);
writeln (plik, x:0:4, 'x    y',y:0:4);
end;
readln;
end;
close(plik);
end.