Вася знал номер квартиры n, где живёт его одноклассник, но совершенно не помнил этаж. на табличке над входом в подъезд было написано, что первая квартира имеет номер n1. войдя в подъезд, мальчик увидел, что на этаже расположено k квартир. напишите программу, которая васе определить этаж, на котором живёт его одноклассник, исходя из имеющейся информации.

австрия -вена,

бельгия - брюссель,

германия- берлин,

дания - копенгаген,

испания - мадрид,

франция - париж,

швейцария - берн

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.

var s: string; begin  writeln('как вас зовут? ');       readln(s);       case s of        'вася': s: ='василий';         'петя': s: ='петр';         'люся': s: ='людмила';         'миха': s: ='михаил';         'пупс': s: ='пупондий';             else s: ='я с вами не знакома';       end;             writeln(s);       readkey; end.