Конспект створеня моделей для розвязуваня задач информатика 7 класс

#include "stdafx.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
float gip, katet1,katet2,radius;
cout << "Введите величину гипотенузы ( см ): ";
cin >> gip;cout << "Введите величину известного катета ( см ) : ";
cin >> katet1;
katet2 = sqrt((float(gip*gip - katet1 * katet1)));
radius = (katet1 + katet2 - gip) / 2;
cout << "Второй катет равен: " << katet2 << " см \nРадиус вписанной
окружности: " << radius << endl;
return 0;
}
использовал формулу для радиуса radius = (katet1+katet2-gip)/2
Для нахождения катетов katet2 = корень квадратный из gip^2-katet1^2
Писал в visual c++, советую там и проверять. Чтобы с синтаксисом проблем не возникло 

Program Kolobok;
var zver:string;
begin
    writeln('Ispekla babka kolobka i postavila yego na okoshko ostuzhatsya');
    writeln('Ubezhal kolobok ot deda i ot babki i pokatilsya po dorozhke');
    writeln('Kolobok katitsya, a navstrechu yemu zver');
    writeln('Vvod zverya');
    readln(zver);
   
    if Zver = 'lisa' then
        begin
            writeln('Kolobok poyot pesenku dva raza');
            writeln('Proshchay, Kolobok ...');
        end
    else
        begin
            writeln('Kolobok poyot pesenku');
            writeln('Katitsya dalshe');
        end;
end.