rogrme jitutonglong;
Var
ji,tu:integer;
begin
write('please enter ji tu:');
readln(ji,tu);
while ji+tu=30 do
begin
2*ji+4*tu=90;
end;
writeln('ji:',ji:12:6,'tu:',tu:12:6);
readln
end.
Var
ji,tu:integer;
begin
write('please enter ji tu:');
readln(ji,tu);
while ji+tu=30 do
begin
2*ji+4*tu=90;
end;
writeln('ji:',ji:12:6,'tu:',tu:12:6);
readln
end.
