Напечатать фамилии студентов, имеющих наименьший возраст

var a,b,c: longint; k: byte;
begin
write('введите три числа: ');
readln(a,b,c);
if a=0 then inc(k);
if b=0 then inc(k);
if c=0 then inc(k);
if k=0 then writeln('среди чисел нет равных нулю')
else writeln('количество чисел равных нулю = ',k);
end.

var a,b: longint; k: byte;
begin
write('введите значение параметра: ');
readln(a);
b:=a;
k:=1;
while a<>0 do
begin
if a div 10 > 0 then inc(k);
a:=a div 10;
end;
writeln('кол-во цифр, которые содержит число = ',k);
if odd(b mod 10) then writeln('действительно, заданное число заканчивается на нечётную цифру')
else writeln('число заканчивается на чётную цифру');
end.

var a,b,c: byte;
begin
writeln('уравнению a+2*b=2*c удовлетворяют следующие наборы чисел:');
for a:=1 to 20 do
for b:=1 to 20 do 
for c:=1 to 20 do
if a+b*2=c*2 then
writeln(a,'    ',b,'    ',c);
end.

uses crt;
const n=5; m=6;
var a: array[1..n,1..m] of integer; b: array[1..m] of integer; i,j: byte; max: integer;
begin
randomize;
clrscr;
writeln('исходный массив: ');
for i:=1 to n do
begin
for j:=1 to m do
begin 
a[i,j]:=random(19)-9;
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to m do
if a[i,j]>max then max:=a[i,j];
b[i]:=max;
end;
writeln('массив максимумов строк: ');
for i:=1 to m do
write(b[i]:4);
end.

uses crt;
const n=5;
type a=record
fam: string;
age: byte;
end;
var mas: array[1..n] of a; f: file of a; i,min: byte;
begin
clrscr;
writeln('введите данные о студентах: ');
for i:=1 to n do
begin
write('фамилия ',i,'-ого студента: ');
readln(mas[i].fam);
write('его возраст: ');
readln(mas[i].age);
end;
assign(f,'file.bin');
rewrite(a);
for i:=1 to n do
write(f,mas[i]);
close(f);
min:=mas[1].age;
for i:=2 to n do
if mas[i]<min then min:=mas[i].age;
writeln('наименьший возраст имеют следующие студенты:');
for i:=1 to n do
if mas[i].age=min then write(mas[i].age:4);
end.

uses crt;
var s: string; k,i: byte; f: text;
begin
assign(f,'file.txt');
reset(f);
read(f,s);
close(f);
writeln('исходная строка: ',s);
for i:=1 to length(s) do
if s[i]='.' then inc(k);
writeln('она содержит ',k,' предложений');
end.

uses crt;
const n=5;
var a,b,c: array[1..n] of integer; i: byte;
begin
randomize;
clrscr;
writeln('исходные массивы: ');
for i:=1 to n do
begin
a[i]:=random(19)-9;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
begin
b[i]:=random(19)-9;
write(b[i]:3);
end;
for i:=1 to n do
if a[i]>b[i] then c[i]:=4*a[i]
else c[i]:=4*b[i];
writeln('результирующий массив: ');
for i:=1 to n do
write(c[i]:3);
end.