01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SERG10-2

program serg10_2;
var str1, a : string[50]; i, j, k, x : integer;
str2 : array [1..50] of char;
begin writeln ('‚ўҐ¤ЁвҐ бвp®Єг,Ј¤Ґ Ґбвм Ї®ўв®pпойЁҐбп бЁ¬ў®«л');
readln (str1);

k:=0;
for i := 1 to length (str1) do
for j := 1 to i do
if ( str1[j] <> str1[i] ) then begin k := k +1; str2[k] := str1[j]; end;
for i := 1 to k do write (str2[i]);
readln; end.