var str:string;i, n: integer;beginreadln(str);if str:=039;q039;, 039;w039;, 039;e039;, 039;r039;, 039;t039;, 039;y039;, 039;u039;,

Var str:string;
i, n: integer;

begin
readln(str);
if str:='q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', 'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', 'z', 'x', 'c', 'v', 'b', 'n', 'm';
for i:= 1 to n do
writeln(chr(ord(str[i])+32));
else
writeln(chr(ord(str[i])-32));

end.
Задачка:Написать функцию, отдающую перевоплощенную к верхнему регистру строчку в качестве аргумента(сделать для больших и строчных)с таблицей "АСКИ"
К примеру
ввод: ABcz
вывод:ABCZ