Совсем ничего не видно.
Можно без отметить нарушение?
var
a, b: real;
begin
writeln('введите длину');
readln(a);
writeln('введите ширину');
readln(b);
writeln('периметр прямоугольника ', 2 * (a + b));
end.
Очень просто нармсуй на листке а потом как в майнкрафте строй
Может быть:
<span>"Прикладной программист — программист, работающий над прикладным программным обеспечением. "
</span>Т.е. Создание прикладных программ.
Var a, b: real;
{а – возраст Маши; b – возраст Cаши}
begin
readln (a, b);
if A>B then
writeln ('Маша старше Саши')
else if a=b then
writeln('Саша и Маша ровесники')
else
writeln ('Саша старше Маши');
readln;
<span>end.</span>