program p;
var a,b,o,l: integer;
begin
writeln("Введите стороны A и B:");
readln(a,b);
o:=(a+b) div 10;
l:=(a+b) mod 10;
writeln("Нужно досок: ",o,"Останется непокрыто: ",l);
readln; end.
program p;
var a,b,o,l: integer;
begin
writeln("Введите стороны A и B:");
readln(a,b);
o:=(a+b) div 10;
l:=(a+b) mod 10;
writeln("Нужно досок: ",o,"Останется непокрыто: ",l);
readln; end.