Составить блок схему задачи :решение квадратного уравнения AX^2+C=0, где А и С-числа

Var a: byte; b:integer;
Begin 
writeln('Введите день месяца');
readln(b);
writeln('Введите номер месяца');   
Readln(a);    
          Case a of        
1: writeln(b,' янавря');        
2: writeln(b,' февраля');      
3: writeln(b,' марта ');        
4: writeln(b,' апреля ');      
5: writeln(b,' мая');      
6: writeln(b,' июня ');        
7: writeln(b,' июля');       
8: writeln(b,' августа');     
9: writeln(b,' сентября');     
10: writeln(b,' октября');     
11: writeln(b,' ноября');       
12: writeln(b,' декабря');     
else writeln('Месяца №', a,'нет');   
end;       
end.

Дан массив, содержащий 70 целых чисел. Опишите на одном из языков программирования алгоритм,

позволяющий найти и вывести наименьшее содержащееся в массиве положительное число, десятичная

запись которого оканчивается цифрой 7. Гарантируется, что в массиве есть хотя бы один

положительный элемент, десятичная запись которого оканчивается цифрой 7. Исходные данные объявлены так, как показано ниже. Запрещается использовать переменные, не описанные ниже, но

разрешается не использовать часть из них.

1

2

3

4

5

6

7

8

9

const N=70;

var

a: array [1..N] of integer;

i, j, m: integer;

begin

for i:=1 to N do

что-то подобное?