Як за до циклу while ввести в консоль квадрат * * * * * * * * * * * * * * * * * * * * * * * * *

# coding: utf-8
# Python 3.X

'''
Программа просит ввести основание
и прилегающую высоту треугольника,
присваивает введённые значения
переменным a и h, вычисляет площадь
треугольника и печатает значения
a, h и площади треугольника.
Вычисление площади треугольника
оформлено в виде вс
функции.
'''

def trig_area(a, h):
    a = 0.5 * a * h
    if a.is_integer():
        return int(a)
    else:
        return a

a = int(input('Введите основание: '))
h = int(input('Введите прилегающую высоту: '))
print('\nОснование: {}\nВысота: {}\nПлощадь: {}'.format(a, h, trig_area(a, h)))

PascalABC.NET 3.2

uses GraphABC;

begin
  var xc:=300;
  var yc:=250;
  var r:=150;
  var dx:=Trunc(r*cos(Pi/3));
  var dy:=Trunc(r*sin(Pi/3));
  Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
    (xc-dx,yc+dy),(xc+dx,yc+dy));
  r:=r-10;
  dx:=Trunc(r*cos(Pi/3));
  dy:=Trunc(r*sin(Pi/3));
  Pen.Color:=clRed;
  Brush.Color:=Pen.Color;
  Polygon((xc+r,yc),(xc+dx,yc-dy),(xc-dx,yc-dy),(xc-r,yc),
    (xc-dx,yc+dy),(xc+dx,yc+dy));
  Font.Color:=clWhite;
  Font.Size:=50;
  Font.Style:=fsBold;
  SetCoordinateOrigin(xc-90,yc-40);
  Write('STOP');
end.