На кумире и pascal. , , не знаю, как оформлять 1. найти s треугольника, если известны основание и высота. 2. даны 3 числа. найти большее из них. 3. найти сумму чисел от 5 до 20. нужны алгоритмы на двух языках, заранее огромное ❤

задача1  на КуМире

алг задача1

нач

вещ s, a, h

вывод "введи основание и высоту треугольника"

ввод a, h

s:=1/2*a*h

вывод "площадь треугольника равна", s

кон

задача2 на Кумире

алг задача2

нач

вещ a, b, c, max

вывод "введи три произвольных числа"

ввод a, b, c

если a>b то max:=a

        иначе max:=b

все

если c>max то max:=c все

вывод "наибольшим является число ",max

кон

задача3 на КуМире

алг задача3

нач

цел sum, n

n:=5

sum:=0

нц пока n<> 20

sum:=sum+n

n:=n+1

кц

вывод "сумма чисел от 5 до 20 равна", sum

кон

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.

Const   N = 10;   
var   a, S1, S2: Integer;   
i, Q1, Q2: Byte;   
begin   
S1 := 0; Q1 := 0;   
S2 := 0; Q2 := 0;  
writeln('Введите ', N, ' чисел:');   
for i := 1 to N do 
begin     
read(a);     
if a < 0 then 
begin      
S1 := S1 + a;       
inc(Q1)     
end;     
if a > 0 then 
begin       
S2 := S2 + a;       
inc(Q2)     
end;   
end;   
writeln;   
if Q1 > 0 then 
begin     
writeln('Сумма отрицательных чисел: ', S1);     
writeln('Количество отрицательных: ', Q1)   
end   
else 
writeln('Отрицательных нет');   
if Q2 > 0 then
begin     
writeln('Сумма положительных чисел: ', S2);     
writeln('Количество положительных: ', Q2)   
end   
else 
writeln('Положительных нет') 
end.