Может, второе вот так?
А в решении Аштона лучше так напиши
readln(a, b);
writeln('P = ', 2 * (a + b));
writeln('S = ', a * b);
а то будут дополнительные вопросы к тебе у препода.
<span>var a,s,mn:real;
n,i:integer;
begin
clrscr;
repeat
write('Сколько чисел ввести n>0 n=');
readln(n);
until n>0;
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
write('a=');
readln(a);
if i=1 then mn:=a
else if odd(i)and(a<mn) then mn:=a;
if(i mod 2=0)and(a>0) then s:=s+a;
end;
writeln('Сумма положительных с четными индексами=',s:0:2);
writeln('Минимальный с нечетным индексом=',mn:0:2);
readln
end.</span>
A, b, c = int(input())
v = a * b * c
print(v)
В какой программе можно рисовать фигурами (wordpad)
есть 2003 ,2004и 2007(wordpard)
можно подключить пакет из другой программы(wordpard)