<span>Первая:
</span>
var
x,y,z:real;
begin
readln(x);
y:=x+2.3;
z:=y/1.2;
writeln(x+y+z);
end.
<span>Вторая:
vara,b:real;beginreadln(a);readln(b);writeln('Периметр: ', 2*(a+b));writeln('Площадь: ', a*b);end.
Третья:
varv1,v2,s,t:real;beginreadln(v1);readln(v2);readln(s);readln(t);writeln((v1*t)+(v2*t)+s)end.</span>
<span>индекс последнего отрицательного элемента
P.S. в Пайтоне списки индексируются с 0, т.е. 0 <= i <= n - 1</span>
Во втором вложении - правила преобразования и список эквивалентных символов для записи операций.
Microsoft qBASIC 1.0 DOS
FOR d = 5 TO 75
PRINT d, 1.609 * d
NEXT d
Var H,s,p,x,z:real;
begin
readln(H,s,p);
p:=s/100;
p:=p*15;
z:=H*s+p;
writeln(z);
<span>end.</span>