Ответы и объяснения

2012-12-20T22:19:53+04:00

var a,c:real;

begin

write('vvedite a = ');

readln(a);

c:=a div 100 mod 10;

write('c = ',c);

readln;

end.