procedure TForm1.Button1Click(Sender: TObject);
var c,d:integer;
np,fail,i:integer;
n:byte;
begin
assignfile(f,'4.xml');
rewrite(f);
writeln(f,'<?xml version="1.0" encoding="windows-1251"?>');
writeln(f,'<?xml-stylesheet type="text/xsl" href="http://www.w3.org/Math/XSL/pmathml.xsl"?>');
writeln(f,'<html xmlns="http://www.w3.org/1999/xhtml">');
writeln(f,'<head>');
writeln(f,'<meta http-equiv="Content-Type" content="text/html" />');
writeln(f,'</head>');
writeln(f,'<body>');
if memo1.Text<>'' then
begin
val(memo1.Text,np,fail);
if (fail=0) and (np<>0) then n:=strtoint(memo1.Text)
else
begin
showmessage('Введите число от 1 до 255');
closefile(f);
exit;
end;
end
else
begin
showmessage('Пустое поле ввода');
closefile(f);
exit;
end;
Randomize;
For i := 1 To n Do
begin
repeat c:=random(11)-5 until (c<>0);
repeat d:=random(11)-5 until (d<>0);
end;
writeln(f,'<p>');
writeln(f,'<math xmlns="http://www.w3.org/1998/Math/MathML">');
writeln(f,'<mfrac>');
writeln(f,'<mrow>');
if d<0 then
begin
if d<>-1 then writeln(f,' <mn>'+inttostr(abs(d))+'</mn> ');
end
else
begin
if d<>1 then writeln(f,' <mn>'+inttostr(abs(d))+'</mn> ');
end;
writeln(f,'<mi>a</mi>');
writeln(f,'<mi>x</mi>');
writeln(f,'<mo>-</mo>');
if c<0 then
begin
if c<>-1 then writeln(f,' <mn>'+inttostr(abs(c))+'</mn> ');
end
else
begin
if c<>1 then writeln(f,' <mn>'+inttostr(abs(c))+'</mn> ');
end;
writeln(f,'<msup>');
writeln(f,'<mi>x</mi>');
writeln(f,'<mn>2</mn>');
writeln(f,'</msup>');
writeln(f,'</mrow>');
writeln(f,'<mrow>');
if d<0 then
begin
if d<>-1 then writeln(f,' <mn>'+inttostr(sqr(d))+'</mn> ');
end
else
begin
if d<>1 then writeln(f,' <mn>'+inttostr(sqr(d))+'</mn> ');
end;
writeln(f,'<msup>');
writeln(f,'<mi>a</mi>');
writeln(f,'<mn>2</mn>');
writeln(f,'</msup>');
writeln(f,'<mo>-</mo>');
if c<0 then
begin
if c<>-1 then writeln(f,' <mn>'+inttostr(sqr(c))+'</mn> ');
end
else
begin
if c<>1 then writeln(f,' <mn>'+inttostr(sqr(c))+'</mn> ');
end;
writeln(f,'<msup>');
writeln(f,'<mi>x</mi>');
writeln(f,'<mn>2</mn>');
writeln(f,'</msup>');
writeln(f,'</mrow>');
writeln(f,'</mfrac>');
writeln(f,'</math>');
writeln(f,'</p>');
writeln(f,'</body>');
writeln(f,'</html> ');
closefile(f);
end;
end.