RS
https://t.me/Delphi_Lazarus/105757 )))
Size: a a a
RS
ㅤ

A
RS
RS
ㅤ
ㅤ
ㅤ
ㅤ
DB
DB
ㅤ
var
c: char; i, k: integer;
begin
k := 1;
for c := 'A' to 'Z' do
begin
for i := 1 to k do write(c);
write(' '); inc(k);
end;
end.
ㅤ
DB
RS
var
c: char; i, k: integer;
begin
k := 1;
for c := 'A' to 'Z' do
begin
for i := 1 to k do write(c);
write(' '); inc(k);
end;
end.
writeln вместо writeㅤ
writeln вместо writeRS
ㅤ
DB
ㅤ