1)
var
a:integer;
begin
writeln('Введите число: ');
readln(a);
Writeln(n div 10 - n mod 10)
end.
2)
var
a:real;
begin
writeln('Площадь в ар.: ');
Read(a);
Writeln('Кв,км: ',Trunc(a/10000))
end.
Положить альбом в портфель.
наточить цветные карандаши.
положить в пенал цветные карандаши и простой карандаш.
взять если нужно краски, кисть и стаканчик для воды.