Program Negyzetre ;
Uses Crt; {haszn lja a k‚perny‹t}
 Var
  Ch:Char; I:Byte; {f‹bb v ltoz˘k}


Procedure Muvelet; {a f‹ művelet}
Var
     Szam, Negyzete: Real ; {műveleten belli v ltoz˘k}
Begin
 Clrscr; {t”rli a k‚perny‹t}
      { Be: Szam }
      Write('Szam: ') ; ReadLn(Szam) ; {sz m bek‚r‚se}

      { Negyzetre emeles: }
      Negyzete := (Szam) * (Szam) ; {maga a műveletn

      { Ki: Negyzete }
      WriteLn('Negyzete: ',Negyzete:5:3) ; {eredm‚ny kiˇr sa}
End; {Muvelet}

Begin{F<program} {a Muvelet ciklus ut n fut le}
 Clrscr;
 Repeat
  For I:= 1 To 1 Do Muvelet;
  Write('Ujra (U), vagy befejezzuk (B) ?');
  Repeat
   Ch:=Upcase(Readkey);
   Until (Ch='U') Or (Ch='B'); {lehets‚ges karakterek}
  Until Ch='B'; {ha b-t nyomsz ezt hajtja v‚gre}
  Clrscr;
  Writeln('Viszontlatasra!');
  Readln {v rakozik egy billentyű lenyom s ra}
End.