uses Dos, Crt;
var h,m,s,ss,rrrr,mm,dd,dw:Word;
    imie:string;
    d,a,b:real;
    z:char;
    haslo:string;
    dupa:string;
begin
repeat;
textBackground(9);
textColor(7);
ClrScr;
gotoxy(10,12);
Write('Podaj has_o dost_pu');
Readln(haslo);
gotoxy(10,13);
if haslo <>'start' then Writeln ('Brak dost_pu!!!')
else
begin
gotoxy(10,13);
GetTime (h,m,s,ss);
gotoxy(10,14);
Writeln('Jest godzina:',h,':',m);
GetDate(rrrr,mm,dd,dw);
gotoxy(10,15);
Writeln('Dzisiaj jest:',rrrr,'-',mm,'-',dd);
gotoxy(10,16);
Write('Jak si_ nazywasz?');
Readln(imie);
gotoxy(10,17);
Writeln('Witaj ',imie,'!');
gotoxy(10,18);
Writeln('Wybierz 1 albo 2');
gotoxy(10,19);
Writeln('1-dodasz dwie liczby');
gotoxy(10,20);
Writeln('2-podzielisz dwie liczby');
gotoxy(10,21);
readln(z);
if z='1' then
begin
gotoxy(10,23);
writeln('Podaj liczb_ a');
gotoxy(10,24);
readln(a);
gotoxy(10,25);
Writeln('Podaj liczb_ b');
gotoxy(10,26);
readln(b);
d:=a+b;
gotoxy(10,27);
Writeln('Wynik to:',d:0:2);
end
else
begin
gotoxy(10,23);
writeln('Podaj liczb_ a');
gotoxy(10,24);
readln(a);
gotoxy(10,25);
Writeln('Podaj liczb_ b');
gotoxy(10,26);
readln(b);
d:=a/b;
gotoxy(10,27);
Writeln('Wynik to:',d:0:2);
readln
end
end;
gotoxy(10,28);
Writeln('Czy chcesz kontynuowa_? T lub N');
gotoxy(10,29);
readln(dupa);
until(upcase(dupa)='N');
end.