Что будет выведено на экран в результате
выполнения программы:
var ss:string; c:char;

begin

ss:= 'studentka';

for c:='s' to 'u' do

delete(ss,pos(c,ss),2);

write(ss); readln;

end.

Program z1;
        var a:array[1..100] of integer;
        n,i:byte;ma:integer;
begin
        write('n=');readln(n);
        for i:=1 to n do begin
                write(i,')');readln(a[i])
        end;
        ma:=a[1];
        for i:=1 to n do begin
                if a[i]>ma then begin
                        ma:=a[i]
                end
        end;
        for i:=1 to n do begin
                a[i]:=ma
        end;
        writeln('test n=',n);
        for i:=1 to n do begin
                writeln(a[i])
        end;
        readln
end.

Если без циклов то
program fifteen;
begin
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
writeln('Имя и фамилия');
end.

Если циклы уже
program fifteen;
var
i:integer;
begin
for i:=1 to 15 do
writeln('Имя и фамилия');
end.