Составьте блок-схему и напишите программку вычисления квадрата числа a, если aamp;lt;5

var a, b : integer;

begin
Вводим переменную а с клавиатуры:
readln(a);
Вводим условие: если а меньше, чем пять, тогда происходит вычисление квадрата числа а, в противном случае через оператор else переменной b присваивается значение а + 8: 
if a lt; 5 then
b : = sqr(a)
else b : = a + 8;
Выводим итог в переменной b на экран:
writeln(Результат равен , b);
end.

Блок-схема по ссылке: https://bit.ly/2yOKXRQ 
Схема состоит из начала, запроса на ввод переменной, условия с ветвлением, вычислениями для каждого варианта, вывода результата и конца программки.