Răspuns:
Program P1;
var nr1, nr2, nr3, med: Real;
var i, j, ex: Integer;
begin
readln ( nr1, nr2, nr3 );
med:= ( nr1 + nr2 + nr3 ) / 3;
writeln(med:0:1, ' Este media a trei numere ');
readln(i,j);
ex:= ( 6*1 ) * ( i div j );
writeln( ex, ' Este raspunsul expresiei ' );
end.
Explicație:
daca nu dai inima te tai :)