Курсовая работа: Автоматизоване нарахування заробітної плати

readln;

end;

{..........}

procedure vit;

begin

window(1,1,40,25);

textbackground(3);

clrscr;

gotoxy(15,1); writeln('POISK');

window(5,2,35,25);

textcolor(1);

if fsearch('rab','rab')='' then

begin

textcolor(4);

write('FAIL NE NAIDEN!!!');

end

else

begin

assign(f,'rab');erase(f);

writeln('FAIL UDALENO');

end;

readln;

end;

{::::::::::::::::::::}

var a:char;

b,j:byte;

begin

textmode(c40);

{ fo;