Запиши программу в Паскале для вычисления площади прямоугольника со сторонами c и n. var
c, n,s:word;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
var
c, n,s:word;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
writeln('s=',s);
readln;
end.
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
writeln('s=',s);
readln;
end.
var
c, n:word;
begin
writeln('Введи стороны прямоугольника c и n');
readln (c,n);
s:=c*n;
writeln('s=',s);
readln;
end.

Возможный вариант решения:

function main(): integer;

begin

 var c: cardinal:= ReadInteger('Введите сторону c:');

 var n: cardinal:= ReadInteger('Введите сторону n:');

 'Площадь прямоугольника: '.Concat((c*n).ToString).Println();

 main:= -1;

end;

begin main(); end.

Допустим и следующий код:

var  c,n: integer;

begin

    writeln('Введи стороны прямоугольника c и n');

    readln (c,n);  

    writeln('s=',c*n);

    readln;

end.

Код:

using System;using System.Linq;namespace Mtrx{    static class Program    {        static void Main(string[] args)        {            var matrix1 = new double[][]            {                new [] {1.0, 2},                new [] {3.0, 4}            };                        var matrix2 = new double[][]            {                new [] {1.0, 2},                new [] {3.0, 4}            };                        var A = MMult(matrix1, matrix2);            if (!A.Success)            {                Console.WriteLine(A.Error);                return;            }            Print2DMatrix(A.Data);        }        private static Result<double[][]> MMult(double[][] A, double[][] B) {            if (A[0].Length != B.Length)                return Result<double[][]>.GetError("It's imposable to multiply this matrix because of their dimensions");                        var result = A.Select(                (row, rowIndex) =>                    B[0].Select((_, columnIndex) => B.Select(__ => __[columnIndex])                        .Zip(row, (rowCell, columnCell) => rowCell * columnCell).Sum()                    ).ToArray()            ).ToArray();            return Result<double[][]>.GetResult(result);        }        private static void Print2DMatrix<T>(T[][] matrix)        {            for (var i = 0; i < matrix.Length; ++i)            {                for (var j = 0; j < matrix[i].Length; ++j)                {                    Console.Write(matrix[j][i]);                    Console.Write(" ");                }                Console.WriteLine();            }        }    }    internal class Result<T>    {        public T Data { get; }        public string Error { get; }        public bool Success => Error is null;        public static Result<T> GetError(string error)        {            return new Result<T>(default, error);        }        public static Result<T> GetResult(T result)        {            return new Result<T>(result);        }        private Result(T data, string error = null)        {            Data = data;            Error = error;        }    }}