ПОМОГИТЕ СДЕЛАТЬ БЛОК СХЕМУ!!! На языке Паскаль

1.Заданы стороны треугольника. Проверить является ли он равнобедренным

2. Найти сумму нечетных чисел в промежутке от 20 до n

СПАСИБО

№1var a, b, c: integer;beginread(a, b, c);if((a = b) or (b = c) or (c = a)) thenwrite('Треугольник равнобедренный')else write('Треугольник неравнобедренный');end.БЛОКСХЕМА:началоввод сторон(a, b, c)если a = b или b = c или с = a, товывести: 'треугольник равнобедренный'иначе вывести: 'треугольник неравнобедренный'конец№2var n, s, i: integer;begins := 0;read(n);for i := 20 to n do beginif (i mod 2 <> 0) then s := s + i;end;write(s);end.БЛОКСХЕМА:началоs := 0, i := 20ввод числа nпока i не равно n   если i - нечётное, то       прибавить к sвывести  sконец