AnsiChar Символьный тип, гарантированный размер 8 бит 0.. 255 WideChar Тип переменной содержащий отдельный Интернациональный символ 0,,65535 Char Переменная этого типа занимает 1 байт и принимает одно из 256 значений кода ASCII Real48 Тип с плавающей запятой с самой высокой вместимостью и точностью Single Занимает 4 байта Double Занимает 8 байт Extended Занимает 10 байт Comp Занимает 8 байт Currency Занимает 8 байт −922337203685477.5808...922337203685477.5807 Real - для записи вещественных чисел
uses crt; var a, b, c, i, j, n:integer; s, k :array [1..10000] of integer; begin clrscr; writeln ('Введите размер массива > 4.'); read (n); for i:=1 to n do begin writeln ('Введите ', i, ' элемент.'); read (s[i]); end; for i:=1 to n do for j:=1 to n-1 do while s[i]=s[j] do begin j:=j+1; inc (k[i]); end; a:=k[1]; for i:=1 to n do if a<k[i] then a:=k[i]; if k[i]=0 then k[i]:=1; writeln ('Наибольшая длина равных элементов идущих последовательно равна ', k[i], '.'); for i:=1 to n-5 do if (s[i+4]-s[i+3]=1) and (s[i+3]-s[i+2]=1) and (s[i+2]-s[i+1]=1) and (s[i+1]-s[i]=1) then inc (b); if b=0 then writeln ('Нет 5 последовательны чисел.') else writeln ('Есть 5 последовательных чисел и это количество равно ', b); end.
readln(a1,a2,b1,b2,b3);
c1:=a1+b2;
c2:=a2*b2;
c3:=c2*b3;
writeln(c1,' ',c2,' ',c3);