Помогите написать программу в паскале.
№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.