Var
x,y:integer;
begin
readln (x);
while x>0 do
begin
y:=x mod 10;
x:=x div 10;
end;
writeln ('Первая цифра = ',y);
end.
Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.
Program lol_kek_4ebyrek;
var x, y:integer;
begin
writeln('Формула: y=x^2');
for x:=1 to 10 do
begin
y:=x*x;
writeln('При x=',x,' y=',y);
end;
end.
1 + 1 + 1 + 1 = 4
Если я не косоглазый. Условие лучше в следующий раз записывать в логическом порядке