1. переведите на язык программирования: а) ввести а и с увеличить а в 10 раз уменьшить с в 20 раз напечатать модуль разности а и с б) ввести а и с если а> с, то увеличить а в 5 раз иначе уменьшить с в 2 раза напечатать значения а и с конец в) ввести a,b и с найти сумму b и с если полученная сумма больше а то увеличить b на 10, иначе уменьшить с на 15 напечатать a, b и с конец

Program 1;
Var a,c: integer;
Begin
Read(a,c);
A := a*10;
C := c mod 20;
Write(abs(a-c));
End.

Program 2;
Var a,c: integer;
Begin
Read(a,c);
if a > c then
A := a*5
Else c := c mod 2;
Write(a,c);

Program 3;
Var a,b,c, sum: integer;
Begin
Read(a,b,c);
Sum := b+c;
If sum > a then
B := b +10
Else c := c-15;
Write(a,b,c);
End.