ЭКРАН.................................................
<span>program if1;
var
a: integer;
begin
read(a)
;
if a > 0 then Inc(a);
write(a);
end
<span>может быть это ?.</span></span>
759 / 12 = 63, остаток 3
63 / 12 = 5, остаток 3
5 / 12 = 0, остаток 5
А теперь выписываем остатки в обратном порядке.
759₁₀ = 533₁₂
Uses crt;
var a, b, S, P:integer;
begin
write('a='); readln(a);
write('b='); readln(b);
S:=a*b; P:=2*(a+b);
write('S=',S,' ','P=',P);
end.
p.s.Где мы выводим на экран значения площади,там после второй S запятая,затем два апострофа через пробел(для пробела в итоге),затем запятая,потом вывод периметра идет аналогичным образом,вот! Спрашивайте,если что не понятно!