Символы вводятся с клавиатуры до символа ‘.’ (точка). вывести символы, предшествующие каждому из введенных. решить надо на паскале. ,

Если я правильно понял, то это должно выглядеть наверно как то так.

К сожалению, код не влезает на скриншот и по этому придётся кидать просто текстом. Табуляции (отступы) думаю сам поймёшь где

P.S. Я слегка модифицировал программу, и в этом варианте она вызывает рисование домика по подтверждению пользователя (функция loop()). Так же был добавлен импорт модуля sys для закрытия программы в случае ошибки авторизации

Объяснение:

from math import *

from turtle import *

import sys

def login_and_password_verification( ):

name='Игнат'

password='q1w2e3r4'

n=input('Введите ваш логин:')

p=input('Пароль:')

if n==name and p==password:

 print('доступ разрешен.')

 return True

else:

 print('Логин или пароль неверный')

 return False

def checking_the_height_of_the_house():

minimal=50

maximal=400

while True:

 global x

 x= int (input('высота дома:'))

 if x > minimal and x < maximal:

  print('Будет сделано господин!')

  return True

 else:

  print('Недопустимая высота дома!Высота дома должна быть меньше ' + maximal + 'и больше'+ minimal)

  return False

def build_the_house():

global y  

global z

y=sqrt(x**2+x**2)

z=y/2

forward(x)  

left(90)

forward(x)

left(45)

forward(z)

left(90)

forward(z)

left(45)

forward(x)

left(135)

forward(y)

left(135)

forward(x)

left(135)

forward(y)

def try_build():

if (checking_the_height_of_the_house()):

 build_the_house()

else:

 return 0

def loop(isrun = 1):

while isrun:

 isrun = input('Запускаемся? Y/N\n')

 if isrun.upper() == 'Y':

  try_build()

 elif isrun.upper() == 'N':

  isrun = 0

  print('Работа завершена')

if login_and_password_verification( ):

loop()

else:

sys.exit()

Const
  m = 3;
  n = 4;
var
  a: array[1..m, 1..n] of integer;
  i, j, k, t: integer;

begin
  Randomize;
  Writeln('Исходный массив');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(101) - 50;
      Write(a[i, j]:4)
    end;
    Writeln
  end;
  { Пузырьковая сортировка по возрастанию в столбцах }
  for j:=1 to n do
    for k := 1 to m-1 do
      for i := 1 to m-1 do
        if a[i,j] > a[i+1,j] then
        begin t := a[i,j]; a[i,j] := a[i+1,j]; a[i+1,j] := t end;
  Writeln('Сортировка по столбцам');
  for i := 1 to m do
  begin
    for j := 1 to n do Write(a[i, j]:4);
    Writeln
  end
end.

Тестовое решение:
Исходный массив
  49 -10  27 -22
  46  42 -17 -12
  34 -50   7  24
Сортировка по столбцам
  34 -50 -17 -22
  46 -10   7 -12
  49  42  27  24