Program past;
uses crt;
var name: string;
age: float;
begin
clrscr;
readln('Введите ваше имя'; name);
readln('Введите ваш возраст'; age);
writeln;
if age<5 then
writeln (name, ' 5 лет назад вы еще не родились');
else
writeln (name, ' 5 лет назад вам было ', age -5, ' лет');
endif;
readkey;
end.
Когда сравниваемые величины образуют в сумме 100%, тогда удобнее применять круговую диаграмму. Ведь круг в сумме и показыает 100%, а уже потом мы его делим (как одно целое) на соответствующие части.
Ну вот, надо что то написать чтоб было 20 символов)))