Вывести на печать все символы строки, состоящий из маленьких букв латинского алфавита, соответствующими заглавными буквами.

uses crt;

var s:string;

i,k:byte;

begin

repeat

writeln('Введите строку из 20 символов');

read(s);

until length(s)=20;

k:=0;

writeln('Строчные латинские буквы, входящие в строку');

for i:=1 to length(s) do

if s[i] in ['a'..'z'] then

begin

write(s[i]);

k:=1;

end;

if k=0 then write('Строчных латинских букв нет')

end.

uses crt;

var s:string;

i,k:byte;

begin

repeat

writeln('Введите строку из 20 символов');

read(s);

until length(s)=20;

k:=0;

writeln('Замены макс на мин и max на min');

for i:=length(s)downto 1 do

if copy(s,i,4)='макс' then

begin

delete(s,i,4);

insert('мин',s,i);

k:=k+1;

end

else if copy(s,i,3)='max' then

begin

delete(s,i,3);

insert('min',s,i);

k:=k+1;

end;

writeln(s);

if k=0 then write('Замен нет')

else write('Количество замен=',k)

end.

# какаята строка

str = "some str"

res = [a.upper() for a in str if 97 <= ord(a) <= 122]

print(' '.join(res))