Microcontroladores

Un diagrama de flujo que ingrese un numero, que imprima el doble, el duplo y la suma de esas dos operaciones.
INICIO
A,B,C,D---0
A
B=A*A
C=A*2
D=B+C
D
INICIO
A,B,C,D---0
A
B=A*A
C=A*2D=B+C
D

program ejer1;
uses crt;
var a,b,c,d:integer;
begin
clrscr;
writeln('Ingrese un numero');
readln(a);
b:=a*a;
c:=a*2;d:=b+c;

writeln('El resultado es: ',d);

readln;
end.

Hacer un programa que nos permita ingresas 4 numeros y que imprima la suma, de los primeros dos números mas lamultiplicación de los siguientes números.
program ejer2;
uses crt;
var a,b,c,d:integer;
begin
clrscr;
a,b,c,d---0
a,b,c,d---0
writeln('Ingrese 4 numeros');readln(a,b,c,d);

a,b,c,d
a,b,c,d
writeln('El resultado es: ',(a+b)+(c*d));

readln;
(a+b)+(c*d)
(a+b)+(c*d)
end.

Hacer un programa que nos permita ingresas un numero eimprima la mitad de ese numero y el doble de ese numero.

program ejer2;
uses crt;
var a,mitad,doble:real;
begin
clrscr;
writeln('Ingrese un numeros');readln(a);

mitad:=a/2;
doble:=a*2;

writeln('La mitad es: ', mitad:3:2);
writeln('El doble es: ',doble:3:0);
readln;
end.

Hacer un programa que nospermita encontrar el mayor de dos números
program ejer4;
uses crt;
var a,b:integer;
begin
clrscr;

writeln('Ingrese dos numeros');
readln(a,b);if a>b then
begin
writeln('El mayor es: ',a);
end
else
begin
writeln('El mayor es: ',b);end;
readln;
end.

Hacer un programa que nos permita ingresas dos números, si el primer numero es mayor imprimir su mitad, de lo contrario imprimir el doble del segundo numero....