Uses Crt;

var n:integer;

Begin

Clrscr;

Write('Сколько литров солярки в баке? >');

Readln(n);

Writeln('Объем канистры 20 литров, значит из бака можно слить:');

Writeln(n div 20, ' полных канистр(ы)');

writeln('или точно ', n/20:2:2, ' канистры');

readln;

end.