Пожалуйста посчитайте вот с этим,Информатика сделать две прграммы в ПаскалеДаю 35 Поинтов!!!(скрин прикреплен)

Вот на 2 задачу первую не понял

var a, b:integer;

begin

writeln ('Введите стороны a и b');

writeln ('Введите сторону a');

readln (a);

writeln ('Введите сторону b');

readln (b);

writeln;

writeln ('Периметр = ', (a+b)*2);

readln;

end.

Объяснение: