program peaprogramm;
uses crt;
{$I prservad.pas}

begin
 servad;
 gotoxy(30, 10);
 write('Tervist, kasutaja!');
 readkey;
 clrscr;
end.