Div берет целую часть от деления
15/4 = <span>3.75
Целая часть числа 3.75 = 3
</span>X = 3
begin
writeln(15 div 4);
end.
program zadacha;
var
x,y:real;
begin
writeln('vvedite x');
readln(x);
if x>0 then y:=-2+3*x else y:=8+x;
writeln('y=',y);
end.
Решение во вложении
------------------------------------
Чуть кривовато, может, но, вроде, понятно должно быть.
Вот решение первой задачки:
program Sosed;
uses Crt;
const n = 10;
type Vec = array [1..n] of integer;
var A: Vec;
i, Col: integer;
begin
ClrScr;
Randomize;
WriteLn('Massiv A:');
for i:=1 to n do
begin
A[i]:= 10+random (90);
Write (A[i]:4);
end;
WriteLn;
Col:=0;
for i:=2 to n do
begin
if A[i]<A[i-1] then
Col:=Col+1;
end;
WriteLn;
if Col<>0 then Writeln('Col =', Col)
else WriteLn('None!');
ReadLn;
end.