Найти произведение значений двух переменных и вывести результат на экран.

Program Myl_l ;

Var a, b, r : Integer;

 Begin

WriteLn ('Введите два числа через пробел');

ReadLn (a, b);

r:=a*b;

WriteLn ('Их произведение равно ', r);

 WriteLn ('Нажмите <Enter>');

End. 

Даны два числа a, b, с. Найти их среднее арифметическое

program srednee arefmetichescoe;

 var a,b,c,d: integer;

 begin 

a:=8;

 b:=3;

 c:=5; 

writeln ((a+b+c)/3);

 end.

2.Найти значение переменных m и n по формуле, и получить общий ответ отношения m и n.       

       

  

 program formula;

var a,b,c,d,m,n: integer;

 begin

a:=9;

b:=3;

c:=5;

 d:=2;

m:=a+(b*c-d);

n:=d-a*2;

write (m);

write (n);

write (m/n);

end.

Задачи на линейные алгоритмы

1. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = abc и площадь поверхности S = 2(ab + bc + ac).


program parallelipiped;
 var a,b,c: integer;
 var  V,S: real; 
 begin 
 a:=6;
 b:=3;
 c:=9; 
 V:=a*b*c;
 S:=2*(a*b+b*c+a*c);
 writeln (V); 
 writeln (S);

 end