01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / MOD / KRITIN

Unit Kritin;

INTERFACE

Uses CRt;
var
f:file of real;
a:array[1..30] of real;
i,n:integer;
b:boolean;

Procedure files;



IMPLEMENTATION
Procedure files;
var
a:array[1..30] of real;
begin
reset(f);
writeln('€б室­л© ¬ ббЁў:');
while not eof(f) do
begin
b:=true;
read(f, a[i]);
Writeln(a[i]:3:0);
end;
close(f);


writeln('ЏаҐ®Ўа §®ў ­­л© ¬ ббЁў:');
reset(f);
b:=true;
while not eof(f) do
begin
read(f, a[i]);
if a[i]<0
then begin
write(a[i]:3:0);
b:=false;
end;
end;

if b=true then
write(' ЋваЁж вҐ«м­ле н«Ґ¬Ґ­в®ў ў ¬ ббЁўҐ ­Ґв!');
close(f);
writeln;
end;
end.