Primer programa v Turbo Pascalu:

Program Test;

Uses
	Crt;

Var
	i  :  Integer;
	x,y   : Real;

Begin
	Readln(i);
	Readln(x);
	y:=x/i;
	Writeln(i,x,y);
End.