07.09.2009, 17:44
|
|
Участник форума
Регистрация: 05.06.2009
Сообщений: 127
Провел на форуме:
1313455
Репутация:
249
|
|
program point;
var
R:integer;
begin
writeln('Vvedite radius');
readln(R);
writeln(R*R+(R-1)*(R-1));
readln;
end.
Последний раз редактировалось Dosia; 07.09.2009 в 17:54..
|
|
|