ravenich
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
program Zapisi;
uses
SysUtils;
const
n = 2;
type
uchenik = record
fio :string;
data, mesyac, god :integer;
end;
var
i :integer;
a :array [1..n] of uchenik;
begin
for i:=1 to n do
with a[i] do
begin
write('vvedite familiyu: ');
readln(a[i].fio);
write('vvedite datu rozhdeniya: ');
readln(a[i].data);
write('vvedite mecyac rozhdeniya: ');
readln(a[i].mesyac);
write('vvedite god rozhdeniya: ');
readln(a[i].god);
writeln;
end;
writeln('V maye rodilis:');
for i:=1 to n do
begin
with a[i] do
begin
if a[i].mesyac=5 then
writeln(a[i].fio);
end;
end;
readln;
end.
|
