uses Dos, Crt;
var h,m,s,ss,rrrr,mm,dd,dw:Word;
    imie:string;
    d,a,b:real;
    z:char;
    haslo:string;
begin
textBackground(9);
textColor(7);
ClrScr;
Write('Podaj hasło dostępu');
Readln(haslo);
if haslo <>'start' then Write ('Brak dostępu!!!')
else
begin
GetTime (h,m,s,ss);
Writeln('Jest godzina:',h,':',m);
GetDate(rrrr,mm,dd,dw);
Writeln('Dzisiaj jest:',rrrr,'-',mm,'-',dd);
Write('Jak się nazywasz?');
Readln(imie);
Writeln('Witaj ',imie,'!');
Write('Wybierz 1 albo 2');
readln(z);
if z='1' then
begin
writeln('Podaj liczbę a');
readln(a);
Writeln('Podaj liczbę b');
readln(b);
d:=a+b;
Writeln('Wynik to:',d:0:2);
end
else
begin
writeln('Podaj liczbę a');
readln(a);
Writeln('Podaj liczbę b');
readln(b);
d:=a/b;
Writeln('Wynik to:',d:0:2);
readln
end
end;
readln;
end.