program z2
var n,d,e,s,p:integer;
begin
writeln('Введите 2-х значное число');
readln(n);