mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 20:10:19 +02:00
53 lines
749 B
ObjectPascal
53 lines
749 B
ObjectPascal
{ %OPT=-Or}
|
|
{$maxfpuregisters 3}
|
|
uses
|
|
erroru;
|
|
|
|
var
|
|
t : text;
|
|
|
|
procedure p;
|
|
|
|
var
|
|
d : double;
|
|
e : extended;
|
|
s : single;
|
|
|
|
begin
|
|
readln(t,d);
|
|
if d<>1 then
|
|
do_error(1000);
|
|
readln(t,d);
|
|
if d<>2 then
|
|
do_error(1001);
|
|
readln(t,e);
|
|
if e<>3 then
|
|
do_error(1002);
|
|
readln(t,e);
|
|
if e<>4 then
|
|
do_error(1003);
|
|
readln(t,s);
|
|
if s<>5 then
|
|
do_error(1004);
|
|
readln(t,s);
|
|
if s<>6 then
|
|
do_error(1005);
|
|
end;
|
|
|
|
begin
|
|
assign(t,'treg2.dat');
|
|
rewrite(t);
|
|
writeln(t,'1.0');
|
|
writeln(t,'2.0');
|
|
writeln(t,'3.0');
|
|
writeln(t,'4.0');
|
|
writeln(t,'5.0');
|
|
writeln(t,'6.0');
|
|
close(t);
|
|
reset(t);
|
|
p;
|
|
close(t);
|
|
erase(t);
|
|
end.
|
|
|