Написать программу в паскале. №1. а : = 40 в : = 10 в : = -а/2*в если а < в то с : = в-а иначе с : = а-2*в №2. а : = 5 а : = а+6 в : = -а с : = а-2*в

Задача №1var a,b,c:real;begina:=40;b:= 10;b:= a/2 *b;if a < b then c:= b -aelsec:= a - 2*b;writeln('c =', c);end.Задача №2var a,b,c:integer;begina:=5;a:= a +6;b:= -a;c:= a- 2*b;writeln('c =', c);end.