16 путей
АБДИК, АБДЖК, АБВДИК, АБВДЖК, АБВЖК, АВДИК, АВДЖК, АВЖК, АГВДИК, АГВДЖК, АГВЖК, АГЕВДИК,АГЕВДЖК, АГЕВЖК, АГЕЖК, АГЕК
Program s_i_p;
var a,b,s,p:real;
begin
writeln('введите значение двух сторон');
readln(a,b);
s:=a*b;
p:=(a+b)*2;
writeln('площадь ',s,' периметр ',p);
end.
Тут не она ошибка, а множество. Должно быть так:
var
a: integer;
begin
writeln('Введите любое число');
read(a);
if (a > 0) then
begin
a := a + 1;
writeln(a)
end
else
begin
a := a - 2;
writeln(a)
end
end.
Ну это слух. ))))))))))))