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

program dima;
uses CRT;
var
st1:string;
j,m,i:integer;
a:array[1..100] of string;
b:boolean;


Procedure Stroka(var st:string);
begin
 i:=1;
 While i<=length(st)-1 do
  if (st[i]=st[i+1]) and (st[i]=' ') then
  delete(st,i,1)
 else
  i:=i+1;
  if st[1]=' ' then delete(st,1,1);
end;


Procedure Semetr;
label
1,2;
begin
m:=0;
TextMode(co80);
 for i:=1 to length(st1) do begin
 if st1[i]=' ' then
 for j:=i-m to i-1 do begin
 if st1[j]=st1[i-j] then b:=true else b:=false;
 end;
 if b=true then for j:=i-m to i do begin write(st1[j]); m:=0; b:=false end;
 m:=m+1;
                               end;
 readln;
end;


begin
 TextBackGround(cyan);
 clrscr;
 Window(25,5,46,7);
 TextBackGround(0);
 TextColor(15);
 clrscr;
 Window(24,4,45,6);
 TextBackGround(1);
 TextColor(15);
 clrscr;
 Writeln;
 Write('   ‚ўҐ¤ЁвҐ бва®Єг ');
 Window(3,10,77,12);
 TextBackGround(0);
 clrscr;
 Window(2,9,76,11);
 TextBackGround(red);
 clrscr;
 GotoXY(2,2);
 Readln(st1);
 Stroka(st1);
 Window(3,10,77,12);
 TextBackGround(0);
 clrscr;
 Window(2,9,76,11);
 TextBackGround(red);
 clrscr;
 GotoXY(2,2);
 Write(st1);
 st1:=st1+' ';
 semetr;
end.