Program P46;
 { Apelul procedurii readln }
var i, j : integer;
    x, y : real;
begin
 writeln('Apelul procedurii read');
 read(i, j);
 read(x, y);
 writeln('Aţi introdus:');
 writeln('i=', i, '  j=', j, '  x=', x, '  y=', y);
 writeln('Apelul procedurii readln');
 readln(i, j);
 readln(x, y);
 writeln('Aţi introdus:');
 writeln('i=', i, '  j=', j, '  x=', x, '  y=', y);
end.