
program laba11;
type spisok=record
imya:string[10];
vozr:byte;
end;
var f:text;
n,i:integer;
lydi:spisok;
begin
assign (f,'f.txt');
rewrite (f);
writeln('введите количество людей');
readln(n);
for i:=1 to n do
with lydi do
begin
writeln('имя');
readln (imya);
writeln ('возраст');
readln (vozr);
write (f,imya);
write (f,vozr);
end;
close (f);
end.
М | Используем теги |