Нарисовать прямоугольник из символов алфавита вида:
A***********
AB**********
ABC********
и т. д. и записать в файл.
program abcd;
const
s = 'c:\text.txt'; // имя файла
var
n : integer;
i, j : integer;
f : text; // файловая переменная
begin
assign(f, s); // связываем файловую переменную с файлом
rewrite(f); // открывае файл для записи
writeln('Введите N не больше 26');
readln(n);
if n < 27 then
begin
for i := 1 to n do
begin
for j := 1 to n do
if j <= i then write(f,chr(j+64))
else write(f,'*');
writeln(f);
end;
end
else writeln('Введенное число не отвечает требованиям задачи.');
close(f); // закрываем файл
readln;
end.