program InSoThucDuong;

var
so1, so2, so3: real;

begin
// Nhập ba số thực
writeln('Nhap so thu nhat: ');
readln(so1);

writeln('Nhap so thu hai: ');
readln(so2);

writeln('Nhap so thu ba: ');
readln(so3);

// In ra các số thực dương
writeln('Cac so thuc duong la: ');

if so1 > 0 then
writeln(so1);

if so2 > 0 then
writeln(so2);

if so3 > 0 then
writeln(so3);

readln;
end.