Информатика. Тема: Оператор ветвления на Паскале

Задача

из 4 величин определить наименьшее

решать типо:

Program ...

begin

readln и т. д.

Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и m. 1) begin writeln ('Введи длину и ширину прямоугольника c и m') ; readln (c, m) ; s:=c*m; writeln ('s=', s) ; readln; end.

Написать программу нахождения периметра параллелограмма по известным сторонам b и h (b и h - целые числа, вводимые с клавиатуры).

Program zadacha3; var x, y : real; rez : char; begin write ('x=') ; readln (x) ; write ('y=') ; readln (y) ; write ('Введите число') ; readln (rez) ; case rez of '1' : writeln ('x+y=', x+y) ; '2' : writeln ('x-y=', x-y) ;

Помогите составить блок схему из алгоритма паскаля? Вот алгоритм var a:array[1 ... 10] of integer; N, K, L, i, Sum:Integer; begin Write ('N: ') ; Readln (N) ; Write ('K: ') ; Readln (K) ; Write ('L: ') ; Readln (L) ;

Как применить random вместо readln? program pr9; type mas = array[-10 ... 10] of integer; const n = 5; var s, i:integer; a:mas; begin writeln ('Номера четных отрицательных элементов:') ; s:=0; for i:=1 to n do begin readln (a[i]) ; end;