dikrudik2002 #1
var r,s:real;begin writeln('Введите радиус круга: ');read(r);s:=r*r*4.1415;writeln('Площадь круга равна ', s:10:1);end.

#2
varyear:integer;desytki:real;beginwrite('Введите возраст : ');repeatreadln(year);until (year<=150);write('Вам ',year);desytki:=(year mod 100 - year mod 10)/10;if (desytki = 1) then   writeln(' лет.')else if (year mod 10 = 1) then     writeln(' год.')else if (year mod 10 = 2)or(year mod 10 = 3)or(year mod 10 = 4) then     writeln(' года.')else if (year mod 10 = 5)or(year mod 10 = 6)or(year mod 10 = 7)or(year mod 10 = 8)or(year mod 10 = 9) then     writeln(' лет.');end.