program Dzielenie_liczb_z_petla_if_i_while;

var x,y:real;
    z:char;
begin
   writeln('Obliczamy wyrazenie y=1/x');
   z:='a';
   while z<>'t' do
      begin
         writeln('Wczytaj x:');
         readln(x);
         if x<>0 then
            begin
              y:=1/x;
              writeln('y=',y:0:9);
            end
         else
            writeln('Nie mozna dzielic przez zero');
      writeln;
      writeln('Czy zakonczyc(t/n)?');
      readln(z);
      if z='T' then
         z:='t';
      end;
end.