Операторы присваивания, ввод и вывод информации

program zadacha_1;
var a,b,c,p,ha,hb,hc:real;
begin
writeln('Vvedite a');
readln(a);
writeln('Vvedite b');
readln(b);
writeln('Vvedite c');
readln(c);
p:=(a+b+c)/2;
ha:=2/a*(sqrt(p*(p-a)*(p-b*(p-c))));
hb:=2/b*(sqrt(p*(p-a)*(p-b*(p-c))));
hc:=2/c*(sqrt(p*(p-a)*(p-b*(p-c))));
writeln('Vusota ha',ha);
writeln('Vusota hb',hb);
writeln('Vusota hc',hc);
end.

program zad2;
var a,b,c:integer;
p,s:real;
begin
readln(a);
readln(b);
readln(c);
  if (a>b) and (a>c) and (a<b+c) then
    begin
      p:=(a+b+c)/2;
      s:=sqrt(p*(p-a)*(p-b)*(p-c));
      writeln(a);
        if b>=c then begin
          writeln(b);
          writeln(c);end
        else         begin
          writeln(b);
          writeln(c);end;
       writeln('S=',s)
    end
  else
    if (b>a) and (b>c) and (b<a+c) then
    begin
      p:=(a+b+c)/2;
      s:=sqrt(p*(p-a)*(p-b)*(p-c));
      writeln(b);
        if a>=c then begin
          writeln(a);
          writeln(c);end
        else         begin
          writeln(c);
          writeln(a);end;
       writeln('S=',s)
    end
  else
    if (c>a) and (c>b) and (c<a+b) then
    begin
      p:=(a+b+c)/2;
      s:=sqrt(p*(p-a)*(p-b)*(p-c));
      writeln(c);
        if a>=b then begin
          writeln(a);
          writeln(b);end
        else         begin
          writeln(b);
          writeln(a);end;
       writeln('S=',s)
    end
  else
  writeln('nevozmojno postroit treugolnik');
  end.

var
a,b,h,f,sum:real;
i,n:integer;
begin
 sum:=0;
 repeat
   writeln('Введите a и b, b > a');
   readln(a,b);
    if ( b < a ) then
      writeln('Ошибка ввода!!!');
 until (b > a );
 writeln('Введите n');
 readln(n);
   for i:=1 to n do
     begin
       h:=( b-a )/n;
       f:=(a - (i-0.5)*h)/(1+(a - (i-0.5)*h)*(a - (i-0.5)*h));
     end;
 writeln('Значение функции: ',f:0:3);
end.

var
s1,s2:string;
c:char;
n,i:integer;
begin
 s1:='a';
 s2:='';
  for i:=1 to 25 do
   begin
    c:=char(ord(s1[i])+1);
    s1:=s1 + c;
   end;
   writeln('Конец ввода символ точка ');
     repeat
       readln(c);
       c:=lowcase(c);
       n:=pos(c,s1);
         if (  n <> 0 ) then
           s2:=s2 + c + ' ';
     until ( c='.' );
   writeln('Результирующая строка  ',s2);
end.

Program laba5;
uses crt;
const n=10;
 
var A:array[1..n,1..n] of integer;;
     k,l:integer;  
 
Function Vozr(nn:integer; AA:A):byte;
var i,j,: integer;
t:boolean; 
begin
j:=1;
t:=false;
q:=0;
While (j<>nn) do
begin
for i:=1 to nn-1 do
begin
    if AA[i,j]>AA[i+1,j] then break
else if (i=nn-1) then inc(q);
end;
inc(j);
end;
 
Vozr:=q;
end;
 
begin
      clrscr
     writeln('vvedite matricu A');
for k:=1 to n do
for l:=1 to n do
read(A[k,l]);
 
Writeln(Vozr(n,A));
readln;
readln;
end.

t:boolean

t:=false

type
A=array[1..n,1..n] of integer

var A:array[1..n,1..n] of integer;;
     k,l:integer;

type
A=array[1..n,1..n] of integer;
 var k,l:integer;

A=array[1..n,1..n] of integer;
 var k,l:integer; 
  AA:A;

read(AA[k,l]);

type
A=array[1..n,1..n] of integer;
 var k,l:integer;
AA:A

read(AA[k,l])

1.25*4=5
//Здесь 1.25 - вещественное число (рациональное)
//4 - действительное
//5 - целое