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

program reyt;
USES crt,tol;
var S:string;
m,k:integer;


Begin
TextBackGround(0);
clrscr;
textbackground(5);
window(1,1,60,3);
clrscr;
Writeln;
write(' ‚ўҐ¤ЁвҐ бва®Єг:');
readln(s);
writeln;
sk(s,m,k);
readln;
window(1,1,80,25);
textbackground(0);
textcolor(15);
clrscr;
END.