Compile and Execute Pascal Online

program p6;
{afisarea a patru numere,in care se dubleza cel mai mare si se tripleaza cel mai mic}
var a,b,c,d:real;
begin
writeln('introduceti valorile a,b,c,d:');
readln(a,b,c,d);
if (a>b) and (a>c) and (a>d) and (d<a) and (d<b) and (d<c) then
writeln(a*2,' ',b,' ',c,' ',d*3,' ');
if (a>b) and (a>c) and (a>d) and (c<a) and (c<b) and (c<d) then
writeln(a*2,' ',b,' ',c*3,' ',d,' ');
if (a>c) and (a>b) and (a>d) and (d<a) and (d<c) and (d<b) then
writeln(a*2,' ',b,' ',c,' ',d*3,' ');
if (a>c) and (a>d) and (a>b) and (b<a) and (b<c) and (b<d) then
writeln(a*2,' ',b*3,' ',c,' ',d,' ');
if (a>d) and (a>b) and (a>c) and (c<a) and (c<d) and (c<b) then
writeln(a*2,' ',b,' ',c*3,' ',d,' ');
if (a>d) and (a>c) and (a>b) and (b<a) and (b<d) and (b<c) then
writeln(a*2,' ',b*3,' ',c,' ',d,' ');
if (b>a) and (b>c) and (b>d) and (d<b) and (d<a) and (d<c) then
writeln(a,' ',b*2,' ',c,' ',d*3,' ');
if (b>a) and (b>c) and (b>d) and (c<b) and (c<a) and (c<d) then
writeln(a,' ',b*2,' ',c*3,' ',d,' ');
if (b>c) and (b>a) and (b>d) and (d<b) and (d<c) and (d<a) then
writeln(a*2,' ',b,' ',c,' ',d*3,' ');
if (b>c) and (b>d) and (b>a) and (a<b) and (a<c) and (a<d) then
writeln(a*3,'',b*2,' ',c,' ',d,' ');
if (b>d) and (b>a) and (b>c) and (c<b) and (c<d) and (c<a) then
writeln(a,' ',b*2,' ',c*3,' ',d,' ');
if (b>d) and (b>c) and (b>a) and (a<b) and (a<d) and (a<c) then
writeln(a*3,' ',b*2,' ',c,' ',d,' ');
if (c>a) and (c>b) and (c>d) and (d<c) and (d<a) and (d<b) then
writeln(a,' ',b,' ',c*2,' ',d*3,' ');
if (c>a) and (c>b) and (c>d) and (b<c) and (b<a) and (b<d) then
writeln(a*2,' ',b*3,' ',c*2,' ',d,' ');
if (c>b) and (c>a) and (c>d) and (d<c) and (d<b) and (d<a) then
writeln(a,' ',b,' ',c*2,' ',d*3,' ');
if (c>b) and (c>d) and (c>a) and (a<c) and (a<b) and (a<d) then
writeln(a*3,' ',b,' ',c*2,' ',d,' ');
if (c>d) and (c>a) and (c>b) and (b<c) and (b<d) and (b<a) then
writeln(a,' ',b*3,' ',c*2,' ',d,' ');
if (c>d) and (c>b) and (c>a) and (a<c) and (a<d) and (a<b) then
writeln(a*3,' ',b,' ',c*3,' ',d,' ');
if (d>a) and (d>b) and (d>c) and (c<d) and (c<a) and (c<b) then
writeln(a,' ',b,' ',c*3,' ',d*2,' ');
if (d>a) and (d>b) and (d>c) and (b<d) and (b<a) and (b<c) then
writeln(a,' ',b*3,' ',c*3,' ',d*2,' ');
if (d>b) and (d>a) and (d>c) and (c<d) and (c<b) and (c<a) then
writeln(a,' ',b,' ',c*3,' ',d*2,' ');
if (d>b) and (d>c) and (d>a) and (a<d) and (a<b) and (a<c) then
writeln(a*3,' ',b,' ',c,' ',d*2,' ');
if (d>c) and (d>a) and (d>b) and (b<d) and (b<c) and (b<a) then
writeln(a,' ',b*3,' ',c*3,' ',d*2,' ');
if (d>c) and (d>b) and (d>a) and (a<d) and (a<c) and (a<b) then
writeln(a*3,' ',b,' ',c,' ',d*2,' ');
end.