информатика (не сорт) / Prg_14_1_me11_головач_цалко

Program n1;
var
A, B,c,d, P1, P2, P3, P4 : integer;
input0, out0 : text;
input, out : file of boolean;

LV : Boolean;
begin

Write ( ' Введите a, b, c, d= ' );


A:=3;
B:=7;
c:=6;
d:=15;



LV:=(0 < A ) and (0 < B )and (0 < c ) and (0 < d );
writeln(LV);


assign ( input0, 'in_14_2.txt' ); {Устанавливаем связь файловой переменной с физическим файлом на диске}
rewrite ( input0 ); {Открываем файл для записи}
write ( input0, a,b,c,d ); {Записываем последовательно данные в файл}
close ( input0 ); {Заканчиваем работу с файлом. Теперь на диске существует файл с именем input.txt, содержащий введенные данные. На этом программу можно закончить, работу с файлом можно продолжить в другой программе, в другое время, но мы продолжим}


{Чтение из типизированного файла}
assign ( input0, 'in_14_2.txt' ); {устанавливаем связь файловой переменной с физическим файлом на диске}
reset ( input0 ); {открываем файл для чтения}
read ( input0, a,b,c,d ); {Читаем данные из файла}
writeln (a,b,c,d ); {Выводим на экран данные из файла}
close ( input0 ); {Заканчиваем работу с файлом}


{Запись в другой типизированный файл}
assign ( out0, 'out_14_2.txt' ); {устанавливаем связь файловой переменной с физическим файлом на диске}
rewrite ( out0 ); {открываем файл для записи}
write ( out0, a,b,c,d); {записываем последовательно данные в файл}
close ( out0 );
{Запись в типизированный файл}

assign ( input, 'in_14_2.txt' ); {Устанавливаем связь файловой переменной с физическим файлом на диске}
rewrite ( input ); {Открываем файл для записи}
write ( input, lv ); {Записываем последовательно данные в файл}
close ( input ); {Заканчиваем работу с файлом. Теперь на диске существует файл с именем input.txt, содержащий введенные данные. На этом программу можно закончить, работу с файлом можно продолжить в другой программе, в другое время, но мы продолжим}


{Чтение из типизированного файла}
assign ( input, 'in_14_1.txt' ); {устанавливаем связь файловой переменной с физическим файлом на диске}
reset ( input ); {открываем файл для чтения}
read ( input, lv ); {Читаем данные из файла}
writeln ( lv ); {Выводим на экран данные из файла}
close ( input ); {Заканчиваем работу с файлом}


{Запись в другой типизированный файл}
assign ( out, 'out_14_1.txt' ); {устанавливаем связь файловой переменной с физическим файлом на диске}
rewrite ( out ); {открываем файл для записи}
write ( out, lv); {записываем последовательно данные в файл}
close ( out ); {заканчиваем работу с файлом}


end.